|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
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
|