Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.07;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.108 c
2-1166175991
sidiakin
2006-12-15 12:46
2007.01.07
Помогите разобраться с машинным кодом!


15-1166272732
Cyrax
2006-12-16 15:38
2007.01.07
Calling convension и name mangling в BCB и MSVC


15-1166092041
Vlad Oshin
2006-12-14 13:27
2007.01.07
MySql и/или MSSQL Логи. Как делать?


2-1166219308
antonn
2006-12-16 00:48
2007.01.07
TCheckBox, TRadioBox - caption


2-1166447443
Slimer
2006-12-18 16:10
2007.01.07
Прога с парадокс на чистом ХР