Container(Listen) für Records?

[Bloodfire]

Hi!

Gibt es keine Container(-liste) für Records?
(so wie TObjectlist)

Müsste ich, wenn ich mir dann eine Klasse, die nur aus String & Integer Eigenschaften besteht, per .Create-Aufruf erzeugen?

Danke!

[himitsu]

Wenn du den Speicher für deine Records selber reservierst (nicht über eine Variable), dann kannst du den Pointer zu diesem Record auch locker in sowas wie TObjectList speichern,

denn die TObjetctList ist ja auch nichts anderes, als eine Liste mit Pointern auf den Speicher der enthaltenen Objekte.

[Hawkeye219]

Zitat von himitsu:

Wenn du den Speicher für deine Records selber reservierst (nicht über eine Variable), dann kannst du den Pointer zu diesem Record auch locker in sowas wie TObjectList speichern,

denn die TObjetctList ist ja auch nichts anderes, als eine Liste mit Pointern auf den Speicher der enthaltenen Objekte.

Dann aber die TObjectList über

List := TObjectList.Create(False); erzeugen, sonst gibt's üble Probleme bei der Freigabe der Liste Besser wäre vielleicht eine TList.

Gruß Hawkeye

[Bloodfire]

Danke für die schnellen Antworten!

Ich glaube, ich werde aber eh eher eine Klasse erstellen und diese über eine TObjectList verwalten.
Wozu hat man denn auch eine objektorientierte Sprache?

Aber hierzu nochmal der Verweis zu meiner vorigen Frage:
Muss man nun eine Variable einer Klasse createn, wenn die Klasse wie folgt aussieht:

Code:

TFormat = class(TObject)
    Name: String;
    FontName: String;
    FontSize: Integer;
    FontStyle: TFontStyle;
    FontColor: TColor;
    FontAlign: TAlignment;
    NextFormat: String;
  public
    constructor Create;  //?? wird das benötigt?
    destructor Destroy;  //?? wird das benötigt?

    procedure WriteFormat(fName, fFontName: String; fFontSize: Integer;
      fFontStyle: TFontstyle; fFontColor: TColor; fFontAlign: TAlignment;
      fNext: String);
    procedure SaveToFile(fFileName: String);
    procedure LoadFromFile(fFileName: String);
  end;

Oder reicht auch eine einfache Deklaration?

Code:

var
  format: tformat;
begin
  format.name:='test';
end;

[Hawkeye219]

Hallo,

die einfache Deklaration reicht nicht aus, da es sich um dynamische Datenstrukturen handelt. Du mußt die Objekte erzeugen und auch wieder freigeben:

Delphi-Quellcode:

Format := TFormat.Create;
:
Format.Free;

Gruß Hawkeye

[Bloodfire]

Ok, passt.

Das .Free übernimmt in meinem Fall dann aber die ObjectList per ObjectList.Delete(index), oder?

[Hawkeye219]

Ja, wenn TObjectList.OwnsObjects auf True steht. Beim Aufruf des TObjectList-Constructors ohne Parameter wird das so gesetzt.