WICHTIG! Speichern und Laden von Messwerten

[altair2]

moin moin an alle hilfsbereiten Programmierer der Welt!!!
Wir (unsere gruppe in der schule)müssen ein TEIL-Programm entwicklen, in dem wir Messwerte ,die vorher aufgenommen wurden
Kurze Info: Als Klasse sollen wir eine Automatische Spektrometermessung durchführen,wobei wir halt die aufgenommen wertepaare ein x und ein y wert abspeichern in einen editor speichern und mit einer daten-managment-language strukturiert danach auch leicht wieder auslesen können

hier is das programm selber ...(as wir bis jetzt haben ,wir können halt nicht viel)

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Values, StdCtrls, ComCtrls, ImgList, ToolWin, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    sdMain: TSaveDialog;
    Button3: TButton;
    odMain: TOpenDialog;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  v   : TResultTable;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  v := TResultTable.Create(0,100,1,10);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  v.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : integer;
begin
  randomize;

  for y := 1 to 10 do
  begin
    x := -v.Resolution;
    while x < v.MaxLambda-v.Resolution do
    begin
      x := x + v.Resolution;
      v.AddValue(x,random(5000)/1000)
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sl : TStringList;
  x,y : Integer;
begin
  if sdMain.Execute then
  begin
    sl := TStringList.Create;
    for y := 1 to 10 do
    begin
      x := -v.Resolution;

      while x < v.MaxLambda-v.Resolution do
      begin
        x := x + v.Resolution;
        sl.Add(FloatToStr(v.GetValue(x,y)))
      end;

     end;
     
    sl.SaveToFile(sdMain.Filename+'.sfkj');
    sl.Destroy;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if odMain.Execute then
  begin
    memo1.Lines.LoadFromFile(odMain.FileName);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Visible:= true
end;

end.

BITTE HELFT UNS!!!!!!!!!

[Bernhard Geyer]

Est mal Hallu und Willkommen.

Dann: Wieso wird der Quelltext nicht ordentlich als Quelltext eingebunden. Im Editor gibt es da so schöne Buttons mit denen man das kann. So bekommt man ja Augenkrebs.

Und wo ist jetzt die genaue Frage?

[mkinzler]

Auch und gerade wenn es schnell gehen soll, bietet sich die richtige Formatierung von Quellcode an, denn dann die die anderen Mitglieder eher bereit zu helfen.

[DeddyH]

Fehlt da eine Unit? Ich kenne jedenfalls keine Klasse TResultTable.

[Uwe Raabe]

Zitat von DeddyH:

Fehlt da eine Unit? Ich kenne jedenfalls keine Klasse TResultTable.

Vermutlich Values.pas. Wobei ich diesen Unit-Namen gleich in den Wettbewerb der ungünstigsten Unit-Namen 2010 anmelden möchte.

[DeddyH]

Meine Stimme hat er

[sh17]

Was mir mal so aufgefallen ist

- anstatt .Destroy vielleicht schon mal .Free verwenden
- Bei Memo.LoadFromFile fehlt die Dateiendung, die bei SaveToFile angegeben wurde.

//Edit

zumindest kann es ein durcheinander geben, wenn generell beim Speichern die Endung drangehängt wird, ohne zu prüfen, ob sie schon im Dateinamen enthalten ist.

[DeddyH]

Und ein try-finally-Block für die Stringliste wäre sicherlich auch nicht sinnlos.

[edit] Wenn die Datei über den Dialog ausgesucht wird, ist der Dateiname doch eh schon komplett. Man könnte aber einen Filter setzen. [/edit]

[schlecki]

und auch mal die Hilfe zu Randomize lesen.

[altair2]

ok...es tut mir leid ,das ich den quelltext falsch angegeben habe..ich bin eine bekennende niete in informatik..
Die Aufgabe: Die Messwertepaare, die vorher aufgenommen wurden ,in eine .txt datei speichern !mit system! und danach wieder laden können und die messwerte an die nächsten weitergeben zu können. Eine .txt datei soll es sein,weil der Leher wünscht ,das man auch ohne programm die messwerte beispielsweise von hand in eine Tabelle eintragen zu können.

Das mit TResultTable war nicht unsere idee ,das war einer der einzigen mit programmiererfahrung in unserer klasse...
die werte sollen halt in einer art Tabelle abgespeichert werden...
für alle interessierten ,habe ich hier noch unser programm mit allen units und ähnlichem...