| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужно выдрать значение Text из всех TLabeledEdit ов на форме [D6, Win95/98, WinME, NT4, Win2k, WinXP]

AlexNO ©   (2002-08-06 12:09:00) 

Нужно выдрать значение 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;


---

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

ЮЮ: Сенкс ;)

---

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

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

---

ЮЮ   (2002-08-06 12:14:00) [3]

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

---

Наверх