TObjektList mit 2 oder mehr TObjekte

[alfold]

Zitat von scrat1979:

Voila...

MH Ich dachte das dies einfacher wäre um alles in eine Datei zu speichern.

Delphi-Quellcode:

procedure TObjekt1.LoadFromStream(AStream: TStream);
begin
  AStream.ReadBuffer(FID, SizeOf(FID));
  AStream.ReadBuffer(FValue, SizeOf(FValue));
end;

procedure TObjekt1.SavetoStream(AStream: TStream);
begin
  AStream.WriteBuffer(FID, SizeOf(FID));
  AStream.WriteBuffer(FValue, SizeOf(FValue));
end;

wenn ich also jeden Parameter einzel aufführen muss, bei mir also

Code:

Soundfile: ShortString;
SoundName: ShortString;
SoundColor: TColor;
CommentText: ShortString;
CommentColor: TColor;
CommentSize: Integer;
SzeneText: ShortString;
SzeneColor: TColor;
ColIndex: Integer;
Start: TTime;
Anfang: TTime;
Ende: TTime;
LoopA: TTime;
LoopE: TTime;
VolA: Integer;
VolE: Integer;
FadeTime: real;
FadeIn: Boolean;
FadeOut: Boolean;
FwStop: Boolean;

und da kommt sicherlich noch was hinzu, ist dies aber auch nicht effektiver als meine alte speichern und lesen Routine, wo ich alles als String umwandle mit ';' trenne dann in eine Datei Speichere und wieder einlese.
Ich dachte das Binär Speichern währe einfacher.

Zitat von Aviator:

Kannst du dir nicht die kostenlose Delphi Community Version holen? Da hättest du dann alle neuen Sprachfeatures.

Ja mach ich gerade.