Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
16. Feb 2009
Hier mal eine Basis zum erweitern (ohne Try...finally und with * do) zum besseren Verständnis:
// Record mit Inhalt füllen
DateiRec.InhaltCount := Length(DateiRec.Inhalt);
// Datei anlegen/öffnen -> Varianten zum Öffnen siehe Hilfe
FileStream := TFileStream.Create('F:\Worktemp\MyFile.dat',fmCreate or fmShareExclusive);
// Header schreiben
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
16. Feb 2009
Ja, eine typisierte Datei hat eine feste Recordbreite, was ja mit einem dynamischen array nicht gegeben ist.
Würde den zweiten Record erweitern:
TDatei = Record
Name : String;
Copyright : String;
Autor : String;
InhaltCount : Integer;
Inhalt : Array of TInhalt;