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

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

zusammenfalten · markieren

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;

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

markieren

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;