From ecee22f9b86c52fabee852449e4071e1e03403d1 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 28 Jun 2009 12:36:26 +0000 Subject: cosmetics. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1832 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/ULanguage.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/base/ULanguage.pas') 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; -- cgit v1.2.3