Добавил к TStringList функцию
Код:
type
TMyStrList=class(TStringList)
public
function AllNames:TStrings;
end;
------------------------------
implementation
function TMyStrList.AllNames:TStrings;
var i: Byte;
begin
Result:= TStringList.Create;
for i:=0 to Count-1 do Result.Append(Names[i]);
end;
------------------------------
теперь задался вопросом: что будет с результатом
после вызова функции, в смысле TStringList я создал, а уничтожать его кто будет?