[trafbite]

Сообщение от FlyInDream

Код:

function AppendList (var AList: TStringList): TStringList;
begin
  AList.Add('Это новая строка!');
  Result:= AList;
end;

Код:

procedure TForm4.btn1Click(Sender: TObject);
var
myList: TStringList;
begin
  myList:= TStringList.Create();
//  AppendList (myList);
  mmo1.Text:= AppendList (myList).Text;
  myList.Free;
end;

Спасибо. Но нифига, все равно ругается:

Код:

function tform1.test(var list: tstringlist): tstringlist;
begin
list.Add('111');
result:=list;
end;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Text:=test (memo1).Text;
end;

Код:

memo2.Text:=test (memo1).Text;

[Error] Unit1.pas(36): Types of actual and formal var parameters must be identical