Delphi ObjectList überschreiben?

Thema durchsuchen

Ansicht

Themen-Optionen

ObjectList überschreiben?

Ein Thema von McMorton · begonnen am 24. Apr 2006 · letzter Beitrag vom 26. Apr 2006

Vorheriger Beitrag

Nächster Beitrag

Kroko1999

Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge

Turbo Delphi für Win32

Re: ObjectList überschreiben?

25. Apr 2006, 06:45

zusammenfalten · markieren

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;