LIST of TMyType

← →
RealRascal © (2004-04-11 09:24) [0]

Порождаю новый класс от TLIST.

TMyList=class(TList)

Переписываю его метод Add.

MyList.Add(NewItem:TMyType);

Как мне потом обратиться к определенной переменной в этом списке, именно как к TMyType?

Ну вот, например, в TStringList можно писать

stringvariable:=Stringlist1[23];

Как мне реализовать подобное через TList?
Я конечно понимаю, в альтернативу можно использовать динамеческие массивы, но... я хочу именно так. Мне так удобнее.

← →
Cobalt © (2004-04-11 09:56) [1]

Посмтори компонент TComponentList как образец.
function TComponentList.Add(AComponent: TComponent): Integer;

← →
Думкин © (2004-04-11 10:08) [2]

property Items[i : integer] : TDemoAction read GetItems; default;

← →
RealRascal © (2004-04-11 12:50) [3]

О, Сила Витаминов! *торжественно, радостно*

Спасибо, оно у меня заработало!
Сделал так:

type TNodes = class(TList) private function get(Index:Integer):TNode; protected public procedure Add(const ANode: TNode); function AddNext(const x, y: double): word; property Items[Index: Integer]: TNode read Get; default; end;

где

function TNodes.get(Index:Integer):TNode; begin Result:= TNode(inherited get(index)); end;

> Result:= TNode(inherited get(index));

Result := TNode(inherited Items[index]);

>[4]
И так, как Вы предложили, тоже работает. Только я не пойму, в чем, собсно, разница.

Result:= TNode(inherited get(index)); - тут мы обращаемся к предку за функцией, так?

а в [4]?
К свойству, получается, чтоли...а свойство потом все равно оттуда этой функцией это заберет...
А зачем? Так быстрее работать будет? Или безопаснее? Или "так уж на Руси повелось"?

LIST of TMyType Найти похожие ветки