| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с TObjectList [D6, WinXP]

G0ga ©   (2005-10-26 14:28:00) 

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

---

Amoeba   (2005-10-26 15:42:00) [1]

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

---

icWasya   (2005-10-26 15:13:00) [2]

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


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

---

Digitman   (2005-10-26 15:11:00) [3]

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

---

G0ga   (2005-10-26 15:07:00) [4]

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

---

G0ga   (2005-10-26 15:05:00) [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;


---

Digitman   (2005-10-26 14:51:00) [6]

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


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

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

---

G0ga   (2005-10-26 14:48:00) [7]

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

---

Digitman   (2005-10-26 14:42:00) [8]

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


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

---

jack128   (2005-10-26 14:39:00) [9]

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

---

Наверх