Просьба проверить, если в коде утечка памяти

[Anfall]

Всем привет. Я пока очень начинающий программер. Нашел в инете функцию. Кто-то сказал, есть утечка памяти в ней. Не могли бы вы проверить, есть ли она на самом деле и как ее избежать:

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls,ex: String;
   i: integer;
   ok: integer;
begin
Result:=TStringList.Create;
if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
ok:=FindFirst(Path+'\*.*',faAnyFile,Rec);
while ok=0 do
begin
if (Rec.Name<>'.')and(Rec.Name<>'..') then
if (Rec.Attr and faDirectory) <> 0 then begin
TMP:=GetFiles(Path+Rec.Name,True);
Result.AddStrings(TMP);
TMP.Free;
end else
begin
ex:=ExtractFileExt(Rec.Name);
if ex='.txt' then
Result.Add(Path+Rec.Name);
end;
ok:=FindNext(Rec);
end;
end;

Заранее благодарен!

[Grag]

Anfall, при каждом вызове функции ты создаешь

Result:=TStringList.Create;

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

[artemavd]

Anfall, попробуй добавить это:

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls,ex: String;
   i: integer;
   ok: integer;
begin
Result:=TStringList.Create;
if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
ok:=FindFirst(Path+'\*.*',faAnyFile,Rec);
while ok=0 do
begin
if (Rec.Name<>'.')and(Rec.Name<>'..') then
if (Rec.Attr and faDirectory) <> 0 then begin
TMP:=GetFiles(Path+Rec.Name,True);
Result.AddStrings(TMP);
TMP.Free;
end else
begin
ex:=ExtractFileExt(Rec.Name);
if ex='.txt' then
Result.Add(Path+Rec.Name);
end;
ok:=FindNext(Rec);
end;
 Result.Free;
end;

[DomiNick]

Хм... Несколько странноватая функция... Да ещё и рекурсивная...
Я бы её в процедуру переделал:

Procedure GetFiles_New(Path: String; Items: TStrings);
Var Rec: TSearchRec; ex: String; ok: Integer;
Begin
If (Path[Length(Path)]<>'\') Then
      Path:=Path+'\';
ok:=FindFirst(Path+'\*.*', faAnyFile,Rec);
While (ok=0) Do
      Begin
      If (Rec.Name<>'.') And (Rec.Name<>'..') Then
            If ((Rec.Attr And faDirectory)<>0) Then
                  Begin
                  GetFiles_New(Path+Rec.Name, Items);
                  End
            Else
                  Begin
                  ex:=ExtractFileExt(Rec.Name);
                  If (ex='.txt') Then
                        Items.Add(Path+Rec.Name);
                  End;
      ok:=FindNext(Rec);
      End;
End;

Для чего там вообще какой-то "Full" не понял... Убрал.

[Utkin]

Да, только

Procedure GetFiles_New(Path: String; var Items: TStrings);

ТСу никогда не возвращай в качестве результата функции сложные типы вроде объектов класса (и желательно не возвращать динамические массивы). Дело в том, что после того как ты выйдешь из функции - уничтожить результат функции будет весьма проблематично и с каждым входом в функцию, памяти будет задействовано все больше и больше.

Да ещё и рекурсивная...

Чем Вам не нравиться рекурсия?

[VintProg]

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

С чего ты это взял? Что при каждом выходе прям резулт не уничтожается, зачем он тогда нужен? Это лишние хлопоты программисту.

[Utkin]

Сообщение от VintProg

С чего ты это взял? Что при каждом выходе прям резулт не уничтожается, зачем он тогда нужен? Это лишние хлопоты программисту.

Ты понял что я написал? И если резулт будет уничтожаться, как ты сможешь им воспользоваться ? Его нужно будет уничтожать явно, а вне функции ты этого сделать не сможешь.

[VintProg]

Сообщение от Utkin

Ты понял что я написал? И если резулт будет уничтожаться, как ты сможешь им воспользоваться ? Его нужно будет уничтожать явно, а вне функции ты этого сделать не сможешь.

А теперь понял!

[Serge_Bliznykov]

полностью согласен с DomiNick и Utkin

подобное использование чрезвычайно чревато.

и, кстати, вот так:

  Result.Free;
end;

делать нельзя! Только что проверил, При попытке присвоить результат функции получаем Access Violation

Сообщение от VintProg

Что при каждом выходе прям резулт не уничтожается, зачем он тогда нужен?

не буду утверждать на 100%, но, думаю, что результат именно не уничтожается. А иначе как бы он был бы доступен ВНЕ функции?!
впрочем, не удивлюсь, если сработает и такой механизм:

  var TS : TString;
...
   TS := функция();
пользуемся TS
после использования:
   TS.Free;

но вообще зачем придумывать себе проблемы?!! Как было предложено выше: Переделать функцию в процедуру, передавать в неё указатель на созданный ранее экземпляр класса и наслаждаться надёжной (и прозрачной) работой программы!

[DomiNick]

Да, только

Procedure GetFiles_New(Path: String; var Items: TStrings);

Хм! По логике - да, но ведь работает же и без.....

Чем Вам не нравиться рекурсия?

Рекурсия мне нравится...
Но не при поиске файлов...