Работа с TObjectList

← →
G0ga © (2005-10-26 14:28) [0]

Господа Мастера! Есть маленький вопрос:
Для работы с данными использую TObjectList. Список TObject пока два (назовем их TObject1 и TObject2). Структура такова TObject2.RequieredObject(TObjectList) имеет структуру TObject1. Как правильно указать в TObject2.RequieredObject ссылку на TObject1?

← →
jack128 © (2005-10-26 14:39) [1]

G0ga © (26.10.05 14:28)
Список TObject пока два (назовем их TObject1 и TObject2).
смысл этой фразы ещё можно додумать, но вот это
G0ga © (26.10.05 14:28)
Структура такова TObject2.RequieredObject(TObjectList) имеет структуру TObject1.
вне моего понимания...

← →
Digitman © (2005-10-26 14:42) [2]

> вне моего понимания

и вне моего ...

← →
G0ga © (2005-10-26 14:48) [3]

Извиняюсь
TObject2.RequieredObject: TObject1;

← →
Digitman © (2005-10-26 14:51) [4]

> G0ga © (26.10.05 14:48) [3]

все равно ничерта не понятно.

если выговорить не в состоянии, приводи полный код ...

← →
G0ga © (2005-10-26 15:05) [5]

TPrice = class(TObjectList) private public end; TPriceInfo = class(TObject) private ... public ... end; TCollectionInfo = class(TObject) private ... FRequiredList: TObjectList; ... public ... end; procedure ... var Price: TPrice; tempP: ^TPriceInfo; tempC: ^TCollectionInfo; begin New(tempP); tempP:=TPriceInfo.Create; ... Price.Items[0]:=tempP^; ... New(tempC); tempC:=TCollectionInfo.Create; ... TCollectionInfo(Price.Items[i]).RequiredList.Add(Price.Items[0]); //Здесь возникает ошибка end;

← →
G0ga © (2005-10-26 15:07) [6]

TCollectionInfo = class(TObject)
private
...
FRequiredList: TObjectList;
...
public
...
property RequiredList: TObjectList read FRequiredList write FRequiredList;
...
end;

с указателями и разыменованиями - полный бардак и непонимание

и зачем нужно вот это

tempP: ^TPriceInfo;
tempC: ^TCollectionInfo;
begin
New(tempP);
tempP^:=TPriceInfo.Create;

Автору вопроса настоятельно советую, прежде чем браться за программирование и клепать такой безграмотный код, сначала изучить по учебнику основы Object Pascal.

Работа с TObjectList Найти похожие ветки