Показать сообщение отдельно
  #4  
Старый 07.11.2017, 06:21
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Там еще есть ошибка.
Вот так работает:
Код:
procedure TForm2.Button1Click(Sender: TObject);
const
  n = 5;
var
  i : integer;
  s : string;
  c : TComponent;
begin
  s := '';
  For I := 1 To n Do
    begin
      c := FindComponent('Edit'+IntToStr(I));
      If c <> Nil Then
        If (c as tedit).Text <> '' Then
          s := s + (c as tedit).Text + ' ';
    end;
  ShowMessage(s);
end;
Ответить с цитированием