diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-06-28 12:36:26 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-06-28 12:36:26 +0000 |
| commit | ecee22f9b86c52fabee852449e4071e1e03403d1 (patch) | |
| tree | d656bbee67cb06b673472af2a948f0b2061f3a5f /src/base | |
| parent | 186e55cca8174732716b24af75aa29f00883cb03 (diff) | |
| download | usdx-ecee22f9b86c52fabee852449e4071e1e03403d1.tar.gz usdx-ecee22f9b86c52fabee852449e4071e1e03403d1.tar.xz usdx-ecee22f9b86c52fabee852449e4071e1e03403d1.zip | |
cosmetics.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1832 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/base')
| -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; |