aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-06-28 12:36:26 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-06-28 12:36:26 +0000
commitecee22f9b86c52fabee852449e4071e1e03403d1 (patch)
treed656bbee67cb06b673472af2a948f0b2061f3a5f
parent186e55cca8174732716b24af75aa29f00883cb03 (diff)
downloadusdx-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 '')
-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;