Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DataModule1.Components[x]- не пашет :(

vitv © (2006-12-15 15:09:00)
procedure From1.Button1Click(Sender: TObject);
var
x: integer;
r: array of tobject;
i: integer;
begin
setlength(r, 0);
i := 0;
for x := 0 to DataModule1.ComponentCount - 1 do
if DataModule1.Components[x] is TIBDataSet then begin
inc(i);
setlength(r, i);
r[i - 1] := Components[x];
end;

for x := 0 to i - 1 do
TIBDataSet(r[x]).Close;
end;
Не пашет :(.

VitV (2006-12-15 15:38:00) [1]

> clickmaker © (15.12.06 15:33) [4]
>
> а зачем так сложно?
> for x := 0 to DataModule1.ComponentCount - 1 do begin
> if DataModule1.Components[x] is TIBDataSet then
> TIBDataSet(DataModule1.Components[x]).Close;
> end;
> не приятней ли?

Спасибо!
Молодой я, не опытный.

vitv (2006-12-15 15:33:00) [2]
Спасибо!

clickmaker (2006-12-15 15:33:00) [3]
а зачем так сложно?
for x := 0 to DataModule1.ComponentCount - 1 do begin
if DataModule1.Components[x] is TIBDataSet then
TIBDataSet(DataModule1.Components[x]).Close;
end;
не приятней ли?

Loginov Dmitry (2006-12-15 15:11:00) [4]
> r[i - 1] := Components[x];

Сергей М. (2006-12-15 15:10:00) [5]
Что, прямо так и говорит - "не пашу" ?)

Наверх

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