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