fortlaufende werte in datei speichern

[skaven]

Hallo,

ich möchte gerne ein programm schreiben,d as fortlaufen eingehende Werte in einer Datei speichert.
Also man öffnet eine Datei und in dieser werden die Werte nacheinander, so wie sie gespeist werden eingelsen und gespeichert.
Bis das Programm beendet wird.

[Dax]

Am einfachsten geht das mit einem TFileStream:

1) Du erstellst beim Programmstart einen TFileStream
2) Die eingehenden Werte werden mit TFieStream.Write oder WriteBuffer geschrieben
3) Beim Programmende zestörst du den Stream

Beispiel:

Delphi-Quellcode:

var
  Stream: TFileStream;

procedure TForm1.Create(Sender: TObjet);
begin
  Stream := TFileStream.Create('Dateiname', fmCreate);
end;

procedure TForm1.ReadEvent(Data: Cardinal); //Kann auch jeder andere Typ sein
begin
  Stream.WriteBuffer(Data, sizeof(Data));
end;

procedure TForm1.Destroy(Sender: TObject);
begin
  Stream.Destroy;
end;

[skaven]

Funktioniert das auch so?

Delphi-Quellcode:

if SaveDialog1.Execute then           { Dialog zum Speichern anzeigen }
      begin
      AssignFile(F, SaveDialog1.Filename);
      append(F) ;
      Writeln(F, uebermittelter_wert);






      // Rewrite(F);
      // Read(uebermittelter_wert, Ch);
      //  Write(F, uebermittelter_wert);
      CloseFile(F);
    end;

[Dax]

Ja, das funktioniert auch. Wobei die MEthode mit dem Stream noch ein wenig eleganter (und sicherer) ist.