Создание объектов в РанТайме...

← →
nv_ © (2004-04-20 17:48) [0]

Доброе время суток, уважаемые мастера.
У меня следующий вопрос: Как корректно создавать n-ое, нет n мало, m-ое ;))) колличество объектов в рантайме?
Конкретная задача поставлена так: загружать из инифайла данные о нужных таблицах, и в рантайме создавать компонет TTable, загрузить в него данные.
Моя проблема: Не знаю как правлильно создать m этих самых таблиц, никогда еще не надо было всё делfть в рантайме.

← →
nv_ © (2004-04-20 17:48) [0]

← →
WondeRu © (2004-04-20 17:56) [1]

создавай список TList для таблиц, затем в цикле создавай

var
ATable : TTable;
i : INteger;
begin

for i := 0 to N - 1 do begin ATable := TTable.create(nil); ATable.DataBase := ... List1.add(ATable); end;

думаю заработает

← →
WondeRu © (2004-04-20 17:56) [1]

← →
Плохиш (2004-04-20 17:56) [2]

for i:= 0 to m do
with TTable.Create(self) do
begin
....
end;

← →
Плохиш (2004-04-20 17:56) [2]

for i:= 0 to m do
with TTable.Create(self) do
begin
....
end;

← →
WebErr © (2004-04-20 17:56) [3]

Tablitsa: array[1..m] of TTablitsa; ... for i := 1 to m do Tablitsa[i] := TTablitsa.Create(...);
Примерно так! :))))

← →
WebErr © (2004-04-20 17:56) [3]

Tablitsa: array[1..m] of TTablitsa; ... for i := 1 to m do Tablitsa[i] := TTablitsa.Create(...);
Примерно так! :))))

← →
WebErr © (2004-04-20 17:58) [4]

Ну и в том же цикле
if not Assigned(Tablitsa[i]) then PlohoVsyo(...);

← →
LM2 (2004-04-20 18:12) [5]

Лучше создавать компоненты В TObjectList, их потом удалять не надо!

← →
LM2 (2004-04-20 18:12) [5]

Лучше создавать компоненты В TObjectList, их потом удалять не надо!

Создание объектов в РанТайме... Найти похожие ветки