paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 18:20:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

project templates: fixed memleak

Browse Source 
git-svn-id: trunk@9912 -
This commit is contained in:
vincents 2006-09-15 19:24:30 +00:00
parent 2b0c6d86b9
commit 17ca5082c7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/projecttemplates/projecttemplates.pp
View File

@ -199,17 +199,17 @@ begin
Clear;
FTemplateDir:=IncludeTrailingPathDelimiter(ATemplateDir);
D:=FTemplateDir;
If FindFirst(D+'*',faDirectory,Info)=0 then
try
try
If FindFirst(D+'*',faDirectory,Info)=0 then
Repeat
If ((Info.Attr and faDirectory)<>0)
and not ((Info.Name='.') or (Info.Name='..') or (Info.Name='')) then
With Add as TProjectTemplate do
InitFromDir(D+Info.Name);
Until FindNext(Info)<>0;
finally
FindClose(Info);
end;
finally
FindClose(Info);
end;
end;