07.11.2017, 06:21
|
Модератор
|
|
Регистрация: 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;
|