Форум: "Основная";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

Работа с 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;

---

← →
Digitman ©   (2005-10-26 15:11) [7]

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

---

← →
icWasya ©   (2005-10-26 15:13) [8]

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


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

---

← →
Amoeba ©   (2005-10-26 15:42) [9]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.049 c