Текущий архив: 2002.12.12;
Скачать: CL | DM;
Вниз
Заполнение полей Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
