Главная страница
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.013 c
4-53814
QUSTION
2003-12-12 12:17
2004.02.17
TreeView!!! ПАМАГИТЕ!


7-53799
BaDeVlad
2003-12-02 12:44
2004.02.17
Как восстановить удаленный файл?


1-53616
Анатолий
2004-02-07 12:30
2004.02.17
Опять по автоматическому обнновлению программы


3-53364
VictorT
2004-01-27 19:55
2004.02.17
Избавление от селекта внутри делете


1-53470
Creator
2004-02-05 10:07
2004.02.17
приложение System