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

Вниз

Нужно выдрать значение Text из всех TLabeledEdit ов на форме   Найти похожие ветки 

 
AlexNO   (2002-08-06 12:09) [0]

Нужно выдрать значение Text из всех TLabeledEdit"ов на форме в цикле.
Их больше 100 и тупо их сливать не хочется ;)
Как это сделать? Вот кусок кода:


procedure TForm1.Save_Dat();
var ss : TStringList;
i : integer;
begin
ss:=TStringList.Create;
for i:=0 to Form1.ComponentCount-1 do
if UpperCase(Form1.Components[i].ClassName) = "TLABELEDEDIT" then
ss.Add(Нужно выдрать значение в этом контроле);
showmessage(ss.Text);
end;


 
ЮЮ ©   (2002-08-06 12:14) [1]

ss.Add(TLABELEDEDIT(Form1.Components[i]).Text)


 
Skier ©   (2002-08-06 12:15) [2]

>AlexNO
А цель твоя какая ?


 
AlexNO   (2002-08-06 12:24) [3]

ЮЮ: Сенкс ;)



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
3-60525
vasilly
2002-07-30 11:06
2002.08.19
Возможно ли?АДО для доступа к MSSQL7 и Oracle в одном приложении


1-60697
proc
2002-08-05 15:19
2002.08.19
if Var1(0.01) > Var2(0.01) = True


6-60789
Dobriy
2002-06-07 21:39
2002.08.19
Вопрос по WNetCancelConnection2.


14-60811
Дмитрий Баранов
2002-07-23 18:24
2002.08.19
Проектирование бухгалтерских БД


3-60481
Naik
2002-07-29 06:37
2002.08.19
Ищу замену TTable