
02.05.2013, 15:39
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
var
i : integer;
c : TComponent;
s : string;
begin
s := '';
for i := 0 to Form1.ComponentCount - 1 do
begin
c := Components[i];
if c.ClassName = 'TEdit' then
s := s + '|' + TEdit(c).Text;
end;
не?
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту. 
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|