Array of Tpoint in eine Datei Speichern und Laden

[sabbert]

Hey,

ich habe ein Array of TPoint erstellt und mit Daten gefüllt.

Nun möchte ich gerne das Array in eine Datei abspeichern und wieder laden.

Hab zwar schon was gefunden z.B. mit Stringlist aber wie gehe ich bei TPoint Array's vor?

mfg

[implementation]

Das wäre schonmal das Speichern. Das Laden kannst du dann (hoffentlich) selbst schreiben:

Delphi-Quellcode:

var
  f: file of TPoint;
  pta: array of TPoint;
  i: word;
begin
  AssignFile(f,'Dateiname.xyz');
  ReWrite(f);
  for i := 0 to Length(pta)-1 do
    Write(f,pta[i]);
  CloseFile(f);
end;

[SirThornberry]

Da die Daten im Array hintereinander liegen kannst du den gesamten Speicher in einem Rutsch in die Datei schreiben.
Ungetestet:

Delphi-Quellcode:

var lStream: TStream;
begin
  lStream = TFileStream.Create(YourFilename, fmCreate);
  try
    lStream.Write(yourarray[0], sizeof(yourarray[0]) * Length(yourarray));
  finally
    lStream.Free;
  end;
end;