[FlyInDream]

Нет, вы как раз передаёте TString:
memo2.Text:=test (memo1).Text;

Memo1 имеет тип TString, собственно компилятор вам об этом и говорит.

[v1s2222]

Мне такие темы нравятся. В третий раз спрашиваю, объясните смысл процедуры.
И тип у Memo не

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

"TString"

а TMemo, а у Memo.Lines - TStrings.

[FlyInDream]

To v1s2222, вы привели уже две процедуры, при этом их никто не выкладывал и при этом спрашиваете их смысл.
Вопрос был, написать функцию, которая получает TStringList и его-же возращает. Надобность её мне не известна.

[trafbite]

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

Не совсем то, что ты думаешь:
Memo.Lines типа TStrings, а Memo.Text: String.
И объясни смысл процедуры.

Код:

Откуда ты берешь эти листинги?
Я такого писал))


Все, точно, проблема была в мемо! Спасибо всем, кто принимал участие)) Вот как заработало:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

код кривой - на скорую руку))

[lmikle]

извращенцы. Учите матчасть.
1. У TMemo.Lines тип действительно TStrings, НО!!! реально там создается TStringList!!!
2. А чем тебя передача ссылки не устраивает???

Код:

1 2 3 4 5 6 7 8 9

procedure AddStringToList(var AList : TStrings; AStr : String); begin   AList.Add(AStr); end;   procedure TForm1.Button1Click(Sender : TObject); begin   AddStringToList(Memo1.Lines,'string'); end;

Да, обычно тут var не нужен, но на всякий случай...

[trafbite]

Да нет, строку я добавляю просто для примера, что с полученным в функцию TStringlist я выполняю какие-либо операции, для примера. На самом деле, там будет и удаление строк и замена и изменение регистра отдельных слов. Ну, в общем, много чего

Мне непонятен был именно сам принцип получения функцией TStringlist и возврат этого же типа.

Теперь разобрался. Отдельное спасибо FlyInDream

[FlyInDream]

Ну передайте memo.lines в переменную типа TStringList. Реально там или не реально, но компилятор с вами не согласен.