aboutsummaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/base/ULanguage.pas5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/base/ULanguage.pas b/src/base/ULanguage.pas
index 02cd7712..c2b44ffa 100644
--- a/src/base/ULanguage.pas
+++ b/src/base/ULanguage.pas
@@ -133,7 +133,8 @@ begin
SetLength(List, 0);
SetLength(ILanguage, 0);
- if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then begin
+ if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then
+ begin
repeat
SetLength(List, Length(List)+1);
SetLength(ILanguage, Length(ILanguage)+1);
@@ -143,7 +144,7 @@ begin
ILanguage[High(ILanguage)] := SR.Name;
until FindNext(SR) <> 0;
- SysUtils.FindClose(SR);
+ SysUtils.FindClose(SR);
end; // if FindFirst
end;