Показать сообщение отдельно
  #3  
Старый 14.07.2014, 17:43
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Ну а дальше, заполняете полученным текстом стринглист и из него передаёте построчно в едиты, примерно так
Код:
...
var
 sl: TStrings;
 i: integer;
begin
 sl:= TStringList.Create;
 
 sl.Text:= .Get(); // Вот здесь наполнение текстом

 for i:= 0 to sl.Count-1 {или указать явно, напр. 5} do
  (FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= sl[i];
 sl.Free;
end;
Ответить с цитированием