Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
22. Jul 2014
Wenn du mit "Tags" arbeitest kann es dir sogar egal sein ob Typ A und/oder B überhaupt vorhanden sind
with Reader do begin
while NextValue <> vaString do SkipValue;
RLine := ReadString;
if RLine='<BEGINOFHEADERTYPC>' then begin
LokalerRecordTypC.Version := ReadInteger;
LokalerRecordTypC.Pos := ReadInteger;
LokalerRecordTypC.Len ...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
22. Jul 2014
Der Vollständigkeit halber:
Mit TReader liest du das ganze wieder ein.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
22. Jul 2014
Schau die mal TWriter an. Sollte genau das tun was du willst.
Beispiel:
procedure TIrgendwas.SaveToStream(AStream : TStream);
var
Writer : TWriter;
begin
Writer := TWriter.Create(AStream,$10000000);
try