mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

memory leak fixed

Browse Source
This commit is contained in:
ronaldhordijk 2005-01-30 09:05:32 +00:00
parent 18c3fbfc97
commit f6e27b15d2
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
2.02g/Source/FormRender.pas
View File

@ -578,26 +578,23 @@ var
Title: string; Title: string;
FStrings: TStringList; FStrings: TStringList;
begin begin
FStrings := TStringList.Create;
if fileExists(AppPath + 'render presets') then
try try
FStrings := TStringList.Create;
if fileExists(AppPath + 'render presets') then begin
FStrings.LoadFromFile(AppPath + 'render presets'); FStrings.LoadFromFile(AppPath + 'render presets');
cmbPreset.Clear; cmbPreset.Clear;
if (Pos('{', FStrings.Text) <> 0) then if (Pos('{', FStrings.Text) <> 0) then begin
begin for i := 0 to FStrings.Count - 1 do begin
for i := 0 to FStrings.Count - 1 do
begin
p := Pos('{', FStrings[i]); p := Pos('{', FStrings[i]);
if (p <> 0) then if (p <> 0) then begin
begin
Title := Trim(Copy(FStrings[i], 1, p - 1)); Title := Trim(Copy(FStrings[i], 1, p - 1));
if Title <> '' then if Title <> '' then begin
begin
cmbPreset.Items.add(Copy(FStrings[i], 1, p - 1)); cmbPreset.Items.add(Copy(FStrings[i], 1, p - 1));
end; end;
end; end;
end; end;
end; end;
end;
finally finally
FStrings.Free; FStrings.Free;
end; end;