Record und in File speichern

[RavenIV]

als Schritt Nr.1 solltest Du die String durch string[xxx] ersetzen.

Delphi-Quellcode:

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

Dann kannst Du folgendermassen abspeichern:

Delphi-Quellcode:

procedure Speichern ();
var
  stream            : TFileStream;
  filename          : string;
begin
  filename := ChangeFileExt (Application.ExeName, '.ext'); // Filename setzen
  stream := TFileStream.Create (filename, fmCreate); // Stream erzeugen
  try
    stream.WriteBuffer (PDeinRecord^, SizeOf (DeinRecord));
  finally
    stream.Free; // Stream wieder freigeben
  end;
end;

Natürlich kannst Du auch das ganze Array speichern, indem Du eine geeignete Schleife um das Speichern herum legst.