Цитата:
Сообщение от 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;
|
Во! Это да. Но нужная именно функция, а не процедура

Что бы она получала текст, выполняла с ним манипуляции и возвращала его
