Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизКак обращаться к однотипным компонентам по их номерам? Найти похожие ветки
← →
Vovchik (2002-02-02 15:19) [3]Я щас не на своём компе и скоро свалю. Поэтому пиши мыло.
А что подробнее? Ну, типа:
procedure TForm1.ChegoToDelay(Sender:TObject);
var
MyArray:array[0..29] of integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
MyArray[Components[i].Tag]:=StrToInt(TEdit(Components[i]).Text);
end;
end;
Не пойдёт такое?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c