Показать сообщение отдельно
  #2  
Старый 02.05.2013, 15:39
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 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.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием