[trafbite]

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

Вопросы становятся все более интересными...
Если я тебя правильно понял

Код:

function test(AList: TStrings): String;
begin
  AList.Add('1111');
  Result := AList.Text;
end;

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

ЗЫ смысл такой процедуры не подскажешь?

Не понял к кому вопрос относится Я такого кода не давал