Цитата:
|
Сообщение от v1s2222
Не совсем то, что ты думаешь:
Memo.Lines типа TStrings, а Memo.Text: String.
И объясни смысл процедуры.
Код:
function test(list: tstrings): tstrings;
begin
result:=tstrings.create;
result.Assign(list);
result.Add('111');
end; |
Откуда ты берешь эти листинги?
Я такого писал))
Все, точно, проблема была в мемо!
Спасибо всем, кто принимал участие)) Вот как заработало:
Код:
function tform1.test(list: tstringlist): tstringlist;
begin
list.Add('second string');
result:=list;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
otherlist,resultlist:tstringlist;
begin
otherlist:=tstringlist.create;
otherlist.text:=memo1.Text;
resultlist:=tstringlist.create;
otherlist.add('first string');
resultlist.Text:=test(otherlist).Text;
memo2.text:=resultlist.text;
end;
код кривой - на скорую руку))