Функции и TStrings

[tebeen]

Может ли функция возвращать переменную, типа, TStrings или TStringList.

Если может, то каким образом?

Спасибо.

[Stilet]

Ну в Паскале я не помню есть ли вообще TStringList, а вот в Делфи функция вполне может вернуть TStringList, как и всякий другой результат любого типа

например function a(var s:array of string):TStringList;

[bill]

Лучше сделать чтобы функция возвращала указатель на эту переменную. Иначе при возвращении копируется вся эта переменная.
А так только пер-я типа pointer,которая весит меньше.

 
var a:tstrings;... begin
ds(var g...):pointer;
..
a:=tstrings(ds(g..)^);

[tebeen]

procedure TfMain.Button8Click(Sender: TObject);
begin
Memo1.Lines:=LineSting;
end;

function TfMain.LineSting: TStringList;
var
sstring: TStringList;
begin
sstring := TStringList.Create;
sstring.Add('one');
sstring.Add('two');
Result:=sstring;
sstring.Free;
end;

В этом случае выдаёт ошибку.

Про pointer:

1. Если к функции обращаются хаотино (например, по TTimer), у каждого вызова функции будет свой Pointer?
2. Если 1 - да!, то как очищается уже не нужные pointer из памяти?

[bill]

1.В делфи для работы со строками есть модуль ShareMem. Может в паскале есть что нить подобное, т.к. ошибки не вижу.
2. а -да
б- процедура dispose(p);p: pointer.

[Stilet]

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

В этом случае выдаёт ошибку.

Ессно выдает, зачем free поставил?!

[tebeen]

Delphi 6 - sp3. что-то я подзапарил с Pascal.

А если free не писать, как я память освобожу.

за p: pointer. спасибо, тоже.

[Shuraken]

Перепишем так

procedure TfMain.Button8Click(Sender: TObject);
begin
LineSting(Memo1.Lines);
end;

procedure TfMain.LineSting(var AList: TStringList);
var
sstring: TStringList;
begin
if AList = nil then
Exit;
sstring := TStringList.Create;
try
sstring.Add('one');
sstring.Add('two');
Alist.Assign(sstring);
finally
sstring.Free;
end;
end;