Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];

Вниз

Заполнение полей   Найти похожие ветки 

← →
Bishop   (2002-12-01 19:41) [0]

Привет, Мастера!
Извините, за ламерский вопрос, но в Делфах сижу совершенно недавно и для меня некоторые вещи не понятны.
Задача такая. На ворме лежат штук 15 Editов. Как бы мне их заполнить каким-нибуть текстом короче чем:
Form1.Edit1.Texst="aaaa";
Form1.Edit2.Texst="aaaa";
Form1.Edit3.Texst="aaaa";
Form1.Edit4.Texst="aaaa";
Может как-то через цикл это можно провернуть? Буду благодарен за код.

---

← →
ctapik-net   (2002-12-01 19:56) [1]


For I := 0 To Form1.ComponentCount-1 Do
If Form1.Compoponents[I].ClassName=TEdit Then
(Form1.Compoponents[I] as TEdit).Text := "aaaaa"

Похоже на правду

---

← →
Bishop   (2002-12-01 20:02) [2]

Оч похоже. Спасибо. Попробую

---

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

Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c