Thema: Delphi Ein Array Speichern

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#7
  Alt 2. Mär 2003, 20:13
Moin Zusammen,

sollte auch so gehen:

Delphi-Quellcode:
type daten=record
      titel:string[20];
      nummer:integer;
     end;
     feld=array[1..500] of daten;

var
  f : feld;

// Schreiben, lesen analog
var
  fs : TFileStream;

begin
  fs := TFileStream.Create(ExtractFilePath(paramstr(0))+'Datei.dat', fmCreate or fmOpenReadWrite);
  try
    fs.Write(f,SizeOf(f));
  finally
    FreeAndNil(fs);
  end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat