mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Memory leaks.

Browse source
This commit is contained in:
cobines 2010-01-31 01:31:29 +00:00
commit 0eaabd0ced
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/usearchtemplate.pas
View file

@ -45,6 +45,7 @@ type
SearchRecord: TSearchAttrRecord;
constructor Create;
destructor Destroy; override;
function CheckFile(const AFile: TFile): Boolean;
property TemplateName: UTF8String read FTemplateName write FTemplateName;
property StartPath: UTF8String read FStartPath write FStartPath;
@ -181,6 +182,18 @@ begin
FillByte(SearchRecord, SizeOf(SearchRecord), 0);
end;
destructor TSearchTemplate.Destroy;
begin
with SearchRecord do
begin
StrDispose(rFileMask);
StrDispose(rAttribStr);
StrDispose(rFindData);
StrDispose(rReplaceData);
end;
inherited Destroy;
end;
function TSearchTemplate.CheckFile(const AFile: TFile): Boolean;
begin
Result:= True;
@ -264,6 +277,8 @@ var
sTemplate: String;
SearchTemplate: TSearchTemplate;
begin
Clear;
iCount:= IniFile.ReadInteger(cSection, 'TemplateCount', 0);
for I:= 0 to iCount - 1 do
begin