Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
ВнизDataModule1.Components[x]- не пашет :( Найти похожие ветки
← →
vitv © (2006-12-15 15:09) [0]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;
Не пашет :(.
← →
Сергей М. © (2006-12-15 15:10) [1]Что, прямо так и говорит - "не пашу" ?)
← →
Loginov Dmitry © (2006-12-15 15:11) [2]> r[i - 1] := Components[x];
← →
vitv © (2006-12-15 15:33) [3]Спасибо!
← →
clickmaker © (2006-12-15 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:38) [5]
> 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;
> не приятней ли?
Спасибо!
Молодой я, не опытный.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c