Цитата:
|
Сообщение от Gravitas
Код:
function TForm1.test(list: TStringList): TStringList;
begin
Result.Add('Some string');
end;
Memo1.Text:=test(text.Text); |
Нет, не работает. Ругается именно на эту строку:
Код:
Memo1.Text:=test(text.Text);
[Error] Unit1.pas(36): Incompatible types: 'TStringList' and 'TCaption'
Листинг двух этих операций:
Код:
function tform1.test(list: tstringlist):tstringlist;
begin
list.Add('111');
result.Text:=list.text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Text:=test(memo1.text);
end;
GriLab, проблема именно в передаче (заборе результата) из функции. Что и как делать в самой функции я знаю, с этим проблем нет. Проблема вывести из функции TStringlist в TStringlist.