TObjektList mit 2 oder mehr TObjekte

[scrat1979]

Anbei nun ein Beispielcode. Gibt noch andere Ansätze, aber das Grundprinzip sollte klar werden. Mit einer generischen TObjectList<T> wäre es noch eleganter, aber die steht Dir ja bei D7 nicht zur Verfügung...

Voila...

Delphi-Quellcode:

unit TestUnit;

interface

uses Classes, SysUtils, Contnrs;


type TObjekt1 = class(TObject)
  private
    FID    : Integer;
    FValue : Integer;

  public
    property ID    : Integer read FID    write FID;
    property Value : Integer read FValue write FValue;

    procedure SavetoStream(AStream : TStream);
    procedure LoadFromStream(AStream : TStream);

    constructor Create(AID : Integer; AValue : Integer);
end;

type TObjektListe = class(TObjectList)
  public
    procedure LoadFromStream(AStream : TStream);
    procedure SaveToStream(AStream : TStream);

end;

implementation

{ TObjekt1 }

constructor TObjekt1.Create(AID, AValue: Integer);
begin
  FID := AID;
  FValue := AValue;
end;

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;

{ TObjektListe }

procedure TObjektListe.LoadFromStream(AStream: TStream);
var FCount : Integer;
  i: Integer;
begin
  (* Liste löschen *)
  Clear;

  (* Anzahl der Elemente auslesen *)
  AStream.ReadBuffer(FCount, SizeOf(Fcount));

  for i := 0 to FCount-1 do begin
    Add(TObjekt1.Create(-1, -1));
    TObjekt1(Last).LoadFromStream(AStream);
  end;
end;

procedure TObjektListe.SaveToStream(AStream: TStream);
var FCount : Integer;
  i: Integer;
begin
  (* Anzahl der Elemente speichern *)
  FCount := Count;
  AStream.WriteBuffer(FCount, SizeOf(FCount));

  (* Einzelne Elemente speichern *)
  for i := 0 to FCount-1 do
    TObjekt1(Items[i]).SavetoStream(AStream);
end;

end.

[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.

[Delphi.Narium]

Wieviele Instanzen pro Objekt?

Je eine?

Nimm doch 'ne INI-Datei.

Je Objekt 'nen Abschnitt und dort dann die Werte rein.

Alle von Dir aufgeführten Werte können problemlos in 'ne INI-Datei geschrieben werden.

Oder 'ne "Datenbank":

Ein Feld für den Namen des Objektes (oder so) und ein Blob für den Stream.

Es muss übrigens kein "richtiges" DBMS sein, kbmMemTable (http://www.delphibag.com/sol/tkbmmemtable.html) kann sowas (eine CSV-ähnliche Textdatei). Oder TClientDataSet (kennt Delphi 7 auch) hat die Methoden LoadFromFile und SaveToFile. Sollte also auch in Delphi 7 alles vorhanden sein, was Du benötigst.

[scrat1979]

Naja, also es mag auf den ersten Blick zumindest aufwendig erscheinen, richtig - schwierig würde ich jedoch nicht sagen. Aber das ist bei der OOP ja oft so. Am Anfang deutlich zeitintensiver, die Wartung des Codes gestaltet sich zukünftig jedoch viel einfacher.

Ohne Deine bisherige Schreib- bzw. Leseroutinen zu kennen: Es scheint sich um eine Art Konfiguration zu handeln, welche Du speicherst - also nicht besonders zeitkritisch. Von daher ist es relativ egal was Du dort machst und ob Du vorher in einen String umwandelst. In meinem Code sparst du Dir zumindest die Konvertiertung und somit Rechenzeit.

Ich habe auch ObjectLists mit deutlich mehr Parametern (s. Deine Liste) in den Objekten zu speichern. Aber wenn ich jetzt einen zusätzlichen Parameter brauche dann muss ich nur die LoadFromStream und SaveToStream-Methode des Objekts anpassen und alles läuft und nichts wird woanders übersehen. Alles schön gekapselt wie es sein soll.

Willst Du nun 2 ObjectLists in einen Stream speichern, dann brauchst Du nur

Delphi-Quellcode:

ObjectListe1.SaveToStream(MyStream);
ObjectListe2.SaveToStream(MyStream);

schreiben und die Sache ist gegessen. LoadFromStream entsprechend zum lesen. Schwierig ist anders

Ich gehe noch einen Schritt weiter und benutze die TObjectList<T> nur intern in einer Oberklasse und kapsele die Zugriffe (inkl. Items[x]) von außen. Damit habe ich alle Funktionen welche ich brauche (AddItem, DeleteItem etc.) selbst in der Hand.

[alfold]

So hab mal die Edition geladen, Exe gleich mal knapp 3MB groß und noch nicht mal eine Zeile geschrieben. Optisch aber schön.

Ok zurück zum Thema.
Aufwendig ist es nicht! Aber nichts anderes, was ich schon gemacht habe, mit ne einfachen Stringliste um die Werte in eine Datei zu speichern.

Muss aber leider jetzt erst mal wieder abbrechen. Fahre morgen für eine Woche weg und kann mich dann wieder mit meinem Project beschäftigen.

THX an alle

Gruß alfold