| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

освобождение памяти [D7, WinXP]

lena19 ©   (2004-06-26 16:19:00) 

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

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

---

GuAV   (2004-06-26 21:04:00) [1]

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;

---

Anatoly Podgoretsky   (2004-06-26 20:43:00) [2]

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

---

lena19   (2004-06-26 20:40:00) [3]

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

---

GuAV   (2004-06-26 19:04:00) [4]

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

---

lena19   (2004-06-26 18:32:00) [5]

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

---

Тимохов   (2004-06-26 18:13:00) [6]

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

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

---

default   (2004-06-26 17:38:00) [7]

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

---

Sir John   (2004-06-26 17:36:00) [8]

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

---

default   (2004-06-26 17:17:00) [9]

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

---

Sir John   (2004-06-26 17:12:00) [10]

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

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

Т. е. Вы утверждаете, что этот код будет рабочим?

function TForm1.GetConstString(const s: String): String;
begin
s := 'AABS';
Result := S;
end;


---

GuAV   (2004-06-26 16:40:00) [11]

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

---

KSergey   (2004-06-26 16:35:00) [12]

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

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

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

---

KSergey   (2004-06-26 16:31:00) [13]

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

---

Sir John   (2004-06-26 16:28:00) [14]

если Вы желаете узнать, останется ли жив объект после выхода из функции - да, останется.
Только непнятно, для чего Вы передаете параметры в функцию?
В дополнении Вам необходимо будет уничтожить объект при выходе из программы.
Кстати, мой Вам совет. Передавайте строковые переменные в функцию как константы. Т. е. вот так

function TForm1.listcreate( cosnts:string;width:integer):Tstringlist;

---

Наверх