TStringList на лету

[Пепел Феникса]

и потом будет AV

можно сделать еще одну функцию по типу такой:

function text(s:TStrings):string;
begin
 Result:=s.Text;
 s.free;
end;

тогда пример изменится так:

 ShowMessage(text(list.v('hello').v('BIG').v('world')));

я бы не сказал что это удобно.
да и в данном случае куда удобнее написать:

ShowMessage('hello'#13'BIG'#13'world');//или + надо, не помню  уже

[Lesha]

стой, можно же создавать листы через банальное свойство text

var list:TStringList;
begin
  list:=TStringList.Create;
  list.Text:='hello'#13'BIG'#13'world';
  ShowMessage(list.Text);

ех ну и у меня и велосипед ужс.

я тут еще пару тестов провел и выяснилось что ваще нельзя в функциях возращать объекты, иначе они зависают в воздухе => утечка памяти

можно только через процедуры в качестве var посылать объект, имеющий прописанный адрес, и созданный вне процедуры.

[Аватар]

Почему нельзя? В общем случае можно, только позаботиться об удалении не забыть. Точно так же как и var в процедуре

function AAA: TStringList;
begin
  Result:=TStringList.Create;
end;

var s: TStringList;
...
s:=AAA;
...
s.Free;

[Lesha]

var list:TStringList;
begin
for i := 0 to 100000 do
list:=TStringList.Create;

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

[Пепел Феникса]

тут же по сути создаем объект и сразу его помещаем в адресованный лист.

куда помещаем?

var list:TObject;//беру глобальнее

по сути это лишь указатель на данные класса, но не сам объект.
вы создаете объект, но и уничтожить его должны вы.(аналогично и с тем что функция вернула объект, хотя тут через параметр как то более привычно)
расмотрим что будет в данном случае:

var list:TStringList;
begin 
for i := 0 to 100000 do
list:=TStringList.Create;

первая итерация: создаем объект1, присваиваем ссылку на него переменной list.
вторая итерация: создаем объект2, присваиваем ссылку на него переменной list, старая ссылка(на объект1) теряется(объект за нас никто не уничтожает).
третья итерация: создаем объект3, присваиваем ссылку на него переменной list, старая ссылка(на объект2) теряется(объект за нас никто не уничтожает).
...

[Lesha]

а вот такая контрукция, а основе методов из первого сообщения память не жрет

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to 100000 do
    list.v('hello').v('BIG').v('world').Free;

end;

то есть получается что переданный листок в процедуре надо просто чистить тока все в ажуре будет.

=>

все же можно без объявления переменных создать текстовый листок, оправить его в процедуру, и уже внутри процедуры уничтожить чтобы не было утечек.

procedure str_proc(s:TStringList);
begin
// вычисления 
s.free;
end;

str_proc(list.v('hello').v('BIG').v('world'));

[Пепел Феникса]

а вот такая контрукция, а основе методов из первого сообщения память не жрет

ибо Free.(так как же как в моем примере с вашим велосипедом)
вообще могу предложить такое:

function CreateStringList(str:array of string):TStringList;
var i:integer;
begin
 Result:=TStringList.Create;
 for i:=Low(str) to High(str) do Result.Add(str[i]);
end;

применяем:

var SL:TStringList;
begin
 SL:=CreateStringList(['Hello World!','','From Phoenix.']);
 ShowMessage(SL.Text);
 SL.Free;
end;

все же можно без объявления переменных создать текстовый листок, оправить его в процедуру, и уже внутри процедуры уничтожить чтобы не было утечек.

это обьект, потому создать объект передать его внутрь и уничтожить нет.
но надо думать, а нужен ли он там.

[Lesha]

воо)) ваще респект

вот только не понятно почему когда в процедуру передаем [1,4,6,8] то это массив, а когда в коде, то массиву это "множество" уже не присвоишь ибо множество.

видимо особенности компилятора.

[Пепел Феникса]

видимо особенности компилятора.

да.

вот только не понятно почему когда в процедуру передаем [1,4,6,8] то это массив

инициализация массива(кстати множеством оно тоже сможет быть, если параметры позволят)
так же при инициализации переменной так же можно(но локальные не имеют инициализации по обьявлению)