diff options
| -rw-r--r-- | src/base/ULanguage.pas | 5 |
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; |