ObjectList überschreiben?

[McMorton]

Hallo

Ich habe schon wieder eine Anfängerfrage:

Ich benutze in meinem Programm die TObjectList.

Wenn ich dort Objekte reinlade kann ich ja nur durchs casten auf sie zugreifen.

Nun weiß ich das man die ObjectList irgentwie überschreiben kann. Sich also ne ObjectList spezielle für das Objekt schaffen kann.

Leider habe ich absolut keine Ahnung wie das geht.
Wer kann mir da helfen?

[Kroko1999]

Delphi-Quellcode:

type
TMyObject = class;

TMyObjectList = class (TObjectList)
private
  function GetMyObject (const AIndex: Integer): TMyObject;
public
  property MyObject[const AIndex: Integer]: TMyObject read GetMyObject;
end;

function TMyObjectList.GetMyObject (const AIndex: Integer): TMyObject;
begin
  Result := TMyObject (Items[AIndex]);
end;

[Die Muhkuh]

Hi,

wobei ich das überschreiben der property Items vorziehe:

Delphi-Quellcode:

TMyObject = class(TObject)
private

public
  // Some propertys
end;


TMyObjectList = class(TObjectList)
private
  function GetItem(Index: Integer): TMyObject;
public
  property Items[Index: Integer]: TMyObject read GetItem;
end;

implementation

function TMyObjectList.GetItem(Index: Integer): TMyObject;
begin
  Result := TMyObject(inherited Items[Index]);
end;

[jbg]

Zitat:

Zitat von Spider

wobei ich das überschreiben der property Items vorziehe:

Dann aber das "default" nicht vergessen:

Delphi-Quellcode:

TMyObjectList = class(TObjectList)
private
  function GetItem(Index: Integer): TMyObject;
public
  property Items[Index: Integer]: TMyObject read GetItem; {-->}default;{<--}
end;

Sonst kann man nicht mehr MyList[i] schreiben und muss immer MyList.Items[i] schreiben.

[Die Muhkuh]

OK, hast recht. Ich hab mir aber angewöhnt immer MyList.Items[I] zu schreiben *g*

[McMorton]

Danke. Genau das habe ich gesucht.

Ich muss dann also alle Funktionen überschreiben, die ansonsten TObject zurückgeben würde (falls ich sie verwenden will)
Z.B. Last, First, ...

[alcaeus]

Hallo,

anstatt TObjectlist zu ueberschreiben, kannst du die Klasse auch ableiten. Mit dem Objectlist-Template ist dies auch kein grosser Aufwand ;)

Greetz
alcaeus

[GuenterS]

Zitat:

Zitat von alcaeus

Hallo,

anstatt TObjectlist zu ueberschreiben, kannst du die Klasse auch ableiten. Mit dem Objectlist-Template ist dies auch kein grosser Aufwand ;)

Greetz
alcaeus

Wie macht man das denn in Delphi7?