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

Вниз

Цикл по Edit ам...   Найти похожие ветки 

 
Dmitriy   (2004-02-06 12:48) [0]

Доброго времени суток!
Вот задался ради интереса такой задачкой:
Есть куча эдитов(edit1, edit2, edit3... editN) и хотелось бы с помощью цикла присваивать им значения или сравнивать с какими-либо значениями, но используя для цикл типа:

for i:=1 to N do
begin
edit{i}.text:=inttostr(i);
end;

или что-то вроде этого... Мож кто видел что-либо подобное?
Заранее спасибо!


 
Sandman25 ©   (2004-02-06 12:52) [1]

TEdit(FindComponent("Edit"+IntToStr(i))).Text := ...


 
RDen   (2004-02-06 12:53) [2]

for i:= 0 to ComponentCount - 1 do
begin //TEdits
if (Components [i] is TEdit) then //очищаем TEdits
TEdit (Components [i]).text := inttostr(i);


 
nexxiss ©   (2004-02-06 12:56) [3]

for i:=0 to Form1.ComponentCount-1 do
if ( Form1.Components[i] is TEdit ) then
with ( Form1.Components[i] as TEdit ) do
begin
// делаем что нужно
// например
Text:="Едит номер:"+IntToStr(i);
end;


 
Dmitriy   (2004-02-06 12:56) [4]

Спасибо :) А ларчик-то просто открывался...
Я уж начал какие-то странные процедуры писать... мда мне ещё с Дельфи разбираться и разбираться...
Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2004.02.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
3-53427
Alex_x
2004-01-26 10:03
2004.02.17
Как вставить (апостроф) в базу?


1-53600
Александр
2004-02-07 20:42
2004.02.17
Размер окна приложения...


9-53348
Landgraph
2003-08-07 11:18
2004.02.17
Z координата...


1-53504
Forest Maniac
2004-02-05 22:34
2004.02.17
Ошибка I/O никак не могу обойти =(


1-53617
Александр
2004-02-07 12:58
2004.02.17
Как добится чтобы размер окна приложения...