From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 28 Apr 2010 19:54:31 +0000
Subject: - new SDL.dll (with a quick and dirty workaround for the
 hanging-mouse problem) - changing of sorting and folder-option (on/off) does
 not need any restart now - a lot of code clean up - some bugfixes... i
 hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UHelp.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'Game/Code/Classes/UHelp.pas')

diff --git a/Game/Code/Classes/UHelp.pas b/Game/Code/Classes/UHelp.pas
index 4691858c..d3595e52 100644
--- a/Game/Code/Classes/UHelp.pas
+++ b/Game/Code/Classes/UHelp.pas
@@ -144,13 +144,14 @@ var
 begin
   SetLength(List, 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);
       SR.Name := ChangeFileExt(SR.Name, '');
       List[High(List)].Name := SR.Name;
     until FindNext(SR) <> 0;
-  SysUtils.FindClose(SR);
+    SysUtils.FindClose(SR);
   end; // if FindFirst
 end;
 
@@ -310,7 +311,7 @@ end;
 
 function THelp.SetHelpID(ID: String):boolean;
 var
-  E, J:   integer; // entry
+  E:   integer; // entry
 begin
   Result := false;
   ScrollPos := 0.0;
@@ -357,7 +358,7 @@ end;
 function THelp.GetHelpStr(): TTextResult;
 var
   K, I, J:   Integer;
-  w: real;
+
 begin
   SetLength(Result.Sections, Length(AEntry.Sections));
   for K := 0 to Length(AEntry.Sections) - 1 do
@@ -398,4 +399,4 @@ begin
   Result := ScrollPos;
 end;
 
-end.
+end.
\ No newline at end of file
-- 
cgit v1.2.3