освобождение памяти

← →
lena19 (2004-06-26 16:19) [0]

function TForm1.listcreate(s:string;width:integer):Tstringlist;
var s1:string;
n:integer;
begin
result:=tstringlist.create;
end;

произойдет ли освобождение памяти(result) при выходе из этой функции ??

← →
Sir John © (2004-06-26 16:28) [1]

если Вы желаете узнать, останется ли жив объект после выхода из функции - да, останется.
Только непнятно, для чего Вы передаете параметры в функцию?
В дополнении Вам необходимо будет уничтожить объект при выходе из программы.
Кстати, мой Вам совет. Передавайте строковые переменные в функцию как константы. Т. е. вот так
function TForm1.listcreate(cosnt s:string;width:integer):Tstringlist;

← →
KSergey © (2004-06-26 16:31) [2]

Нет
Вернее так: из под переменной result память, конечно высвободится, а вот созданный экземпляр объекта tstringlist - безусловно останется.
Остается не потерять на него ссылку и после уничтожить.

← →
KSergey © (2004-06-26 16:35) [3]

> Sir John © (26.06.04 16:28) [1]
> Кстати, мой Вам совет. Передавайте строковые переменные
> в функцию как константы. Т. е. вот так

Ну, не всегда это допустимо, верно? ;)
Вы, вероятно, заботитесь об отсутсвии создния дополнительного экземпляра строки при вызове функции, верно?

Вообще, это вроде как правильно.
Вот только есть у меня воспоминание, что в этом случае все равно передасться ссылка на строку, и только если она изменятеся внутри ф-ции - только в этот момент создается дополнительный экземпляр строки.

← →
GuAV © (2004-06-26 16:40) [4]

В хелпе raise->Re-raising exceptions, там почти этот пример.

← →
Sir John © (2004-06-26 17:12) [5]

Ответ: KSergey
Вот только есть у меня воспоминание, что в этом случае все равно передасться ссылка на строку, и только если она изменятеся внутри ф-ции - только в этот момент создается дополнительный экземпляр строки.

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

Т. е. Вы утверждаете, что этот код будет рабочим?
function TForm1.GetConstString(const s: String): String; begin s := "AABS"; Result := S; end;

← →
default © (2004-06-26 17:17) [6]

Sir John © (26.06.04 17:12) [5]
я смогу изменить данные передаваемой строки как константы?
конечно

← →
Sir John © (2004-06-26 17:36) [7]

сорри, ошибка. Не данные строки, а изменить параметр, передаваемый как константа

← →
default © (2004-06-26 17:38) [8]

всмысле?параметр не данные?

← →
Тимохов © (2004-06-26 18:13) [9]

> Sir John © (26.06.04 17:12) [5]

ваш пример просто не скомпилится

← →
lena19 (2004-06-26 18:32) [10]

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

Не обязательно
for i:=0 to 9999 do listcreate("1111",2).Free;

← →
lena19 (2004-06-26 20:40) [12]

To GuAV
что то я не поняла как в этом случаее получить значения
возвращаемые функцией ?

Оно здесь в точке

var list: TStrings; begin list:=listcreate("1111",2); try // работаем со списком finally list.free; end; end;
или так
begin
with listcreate("1111",2) do
try
// работаем со списком
finally
free;
end;
end;
Создание списка:
function TForm1.listcreate(cosnt s:string;width:integer):Tstringlist; var ... begin Result := TStringList.Create; try // Здесь Ваш код except Result.Free; raise; end; end;

освобождение памяти Найти похожие ветки