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

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

Pointer в функции.

qaaqqa ©   (2007-08-17 11:04:00) 

Если я использую примерную функцию ниже, нужно ли мне гдето заботиться об освобождении памяти под Result.
type
 Tlala = record
   la: word;
   la2: dword;
 end;
 Plala = ^TLala;

 function sss(s: string): Plala;
 begin
   New(Result);
   Result.la := 2;
   Result.la2 := 0;
   if s = 'test' then Result := nil;
 end;


Т.е. я где-то вызываю lalal := sss('---'); и мне не следует заботиться о том что внутри функции для результата выделяется память New?

А если внутри функции вызывать некое условие, уже после выделения по New, нужно ли удалять выделенную память, т.е. делать
   if s = 'test' then
   begin
     Result := nil;
     Free(Result);
   end;

   Или нет?

---

DrPass   (2007-08-17 11:36:00) [1]

> qaaqqa   (17.08.07 11:13) [4]

> Освобождать varlala ?

Как минимум, да. Но
> Правильнее было бы, чтобы кто-то выделял, передавал в функцию
> и потом освобождал.

---

DVM   (2007-08-17 11:27:00) [2]

ну а потом так:

pp := New(Plala);
try
 if sss('12345', pp) then ... else ....;
finally
 Dispose(pp)
end;

---

DVM   (2007-08-17 11:18:00) [3]


function sss(s: string; var p: Plala): boolean;
begin
 result := false;
 if s <> 'test' then
   if Assigned(p) then
     begin
       p.la := 2;
       p.la2 := 0;
       result := true;
     end;
end;


---

DVM   (2007-08-17 11:15:00) [4]

В твоем случае функция либо выделяет либо не выделяет память. Если она выделяет, то кто-то ее должен потом освобождать. Правильнее было бы, чтобы кто-то выделял, передавал в функцию и потом освобождал.

---

DVM   (2007-08-17 11:14:00) [5]

> qaaqqa

Подход, имхо, неправильный. Зачем здесь вообще указатели?

---

qaaqqa   (2007-08-17 11:13:00) [6]

Ну а где её освобождать то?
вызов вот так:

varlalal: Plala;
varlalal := sss('---');

Освобождать varlala ?

---

DrPass   (2007-08-17 11:09:00) [7]

>      Result := nil;
>      Free(Result);

Хм... если тебе нужно выпить вина и повеситься - в каком порядке ты это будешь делать? Сначала повесишься, что ли?
Dispose(Result);
Result:= nil;


> Т.е. я где-то вызываю lalal := sss('---'); и мне не следует
> заботиться о том что внутри функции для результата выделяется
> память New?

Следует. После того, как ты обработал ее результат

---

umbra   (2007-08-17 11:08:00) [8]

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

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

---

Zeqfreed   (2007-08-17 11:08:00) [9]

Выделил память — освободи после использования.

---

Наверх