Ergänzend: Fehlerabfragen nicht Vergessen.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
f: file of TMesswert;
x, IOErr: integer;
begin
If SaveDialog1.Execute then
begin
AssignFile(F, SaveDialog1.FileName);
{$I-}
Rewrite(F); // Datei neu Erstellen
IOErr := IOResult;
if IOErr = 0 then
begin
For x:= 0 to High(AlleMesswerte) do
Write(f, AlleMesswerte[x]);
CloseFile(F);
end else
Showmessage('Fehler bei Dateizugriff. #' + IntToStr(IOErr) );
{$I+}
end;
end;
... und ich würde mich mit der
VCL auch für
FileStreams entscheiden, ist irgendwie einfacher.
Delphi-Quellcode:
procedure TForm1.Button4aClick(Sender: TObject);
var
fs: TFileStream;
x: integer;
begin
If SaveDialog1.Execute then
begin
fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
try
fs.Seek(soFromBeginning, 0);
For x:= 0 to High(AlleMesswerte) do
fs.Write(AlleMesswerte[x], sizeof(TMesswert));
finally
fs.Free;
end;
end;
end;