Record und in File speichern

[peteress]

Geht man von Pascal in der ursprünglichen Version aus, dann ist die obige Deklaration gleichbedeutend mit:

Delphi-Quellcode:

  TArtRec = record
    ID: Integer;
    D1: string[255];
    D2: string[255];
  end;

Dann geht mdas mit dem Speichern schon sehr elegant:

Delphi-Quellcode:

var i :integer;
  aFile: File of TArtRec;
begin
  AssignFile(aFile,'Filename');
  Rewrite(aFile);
  for i := 0 to length(ArtArr)-1 do begin;
    Write(aFile, ArtArr[i]);
  end;
  CloseFile(aFile);
end;

Gruss
Peter