Показать сообщение отдельно
  #6  
Старый 12.08.2011, 20:29
trafbite trafbite вне форума
Прохожий
 
Регистрация: 12.08.2011
Сообщения: 8
Репутация: 10
По умолчанию

Цитата:
Сообщение от FlyInDream
Вот рабочий вариант:
Код:
procedure AppendList (var AList: TStringList);
begin
  AList.Add('Это новая строка!');
end;
Используем:
Код:
procedure TForm4.btn1Click(Sender: TObject);
var
myList: TStringList;
begin
  myList:= TStringList.Create();
  AppendList (myList);
  mmo1.Text:= myList.Text;
  myList.Free;
end;

Во! Это да. Но нужная именно функция, а не процедура Что бы она получала текст, выполняла с ним манипуляции и возвращала его
Ответить с цитированием