pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ACS: fixed freeing FILEFORMATS at program end (issue 13528)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@789 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2009-05-06 19:25:36 +00:00
parent e8364f826d
commit 99614b27af
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/acs/Src/classes/acs_file.pas
View File

@ -97,8 +97,12 @@ type
so the user must only add your unit to the uses clausle to have support for so the user must only add your unit to the uses clausle to have support for
your fileformat. your fileformat.
} }
{ tacsfileformatslist }
tacsfileformatslist = class (tlist) tacsfileformatslist = class (tlist)
public public
destructor Destroy; override;
procedure Add(const Ext, Desc: String; AClass: TACSFormatClass); procedure Add(const Ext, Desc: String; AClass: TACSFormatClass);
function FindExt(ext : string;Typs : TACSFileCapTyps) : TACSFormatClass; function FindExt(ext : string;Typs : TACSFileCapTyps) : TACSFormatClass;
function FindFromFileName(const fileName : String;Typs : TACSFileCapTyps) : TACSFormatClass; function FindFromFileName(const fileName : String;Typs : TACSFileCapTyps) : TACSFormatClass;
@ -565,6 +569,15 @@ end;
{ TACSFileFormatsList } { TACSFileFormatsList }
destructor tacsfileformatslist.Destroy;
var
i: integer;
begin
for i:= 0 to Count-1 do
TACSFileFormat(Items[i]).Free;
inherited Destroy;
end;
procedure TACSFileFormatsList.Add(const Ext, Desc: String;AClass: TACSFormatClass); procedure TACSFileFormatsList.Add(const Ext, Desc: String;AClass: TACSFormatClass);
var var
newRec : TACSFileFormat; newRec : TACSFileFormat;