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

[GunSmoker]

Anfall, вы не заметили, что эти два куска кода идентичны?

[psycho-coder]

А помоему это:

Result:=TStringList.Create;

Не нужно
Оно само создается вроде
И если мне мозги еще не изменяют, то здесь как раз и идет утечка

P.S. Код не проверял

[GunSmoker]

Сообщение от psycho-coder

Оно само создается вроде

Ага, с помощью Господней, не иначе.

[psycho-coder]

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

Ага, с помощью Господней, не иначе.

Полюбому. Перепутал с чем то. Но очень похожим

[DomiNick]

Да что вы говорите

Ну попутал когда спросили "почему без var", в делах я весь...


Anfall, ну я же говорил перед последним (и кстати где он?)...

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;
FindClose(Rec);
End;

Хм... Надо будет попробовать написать не рекурсивную процедуру...

[GunSmoker]

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

Хм... Надо будет попробовать написать не рекурсивную процедуру...

Плюх.