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

27
2.02g/Source/FormRender.pas
View File

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