Главная страница
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.016 c
3-53425
Lisa
2004-01-25 14:52
2004.02.17
TDBGrid


14-53763
Карелин Артем
2004-01-27 15:19
2004.02.17
Посоветуйте книгу по C# и винде.НЕТ


1-53494
zzking
2004-02-05 21:47
2004.02.17
Пауза в исполнении программы


14-53769
RealRascal
2004-01-22 16:37
2004.02.17
Про сканеры и цифровые мыльницы.


6-53668
XeON
2003-11-11 15:09
2004.02.17
UDP