From f5f280f45bb74e7ffb233419cb5bdc93ffca4a20 Mon Sep 17 00:00:00 2001 From: Jonathan Barnard Date: Fri, 6 Mar 2009 04:24:54 +0000 Subject: [PATCH] UnitMainBackend: Remove unused variables in this unit. --- Functions/MainBackend/UnitMainBackend.pas | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Functions/MainBackend/UnitMainBackend.pas b/Functions/MainBackend/UnitMainBackend.pas index 7f355d9..9c6c3ba 100644 --- a/Functions/MainBackend/UnitMainBackend.pas +++ b/Functions/MainBackend/UnitMainBackend.pas @@ -284,13 +284,10 @@ end; function ListProgramsOnDisc(ModeMe:TStrings; DriveChar:char):boolean; var -TempList:Tstrings; -script:string; -Path:string; -Stop:boolean; -Info:TSearchRec; -Count:Longint; -Running:boolean; + script:string; + Path:string; + Info:TSearchRec; + Count:Longint; begin {TODO : This function needs to check the drive not just the folders.} Path := (GetEnvironmentVariable('HOME') +'/'+ WineUserFolder + '/prefix/' + UnitMain.Form1.ComboBox_PreFix.Text + '/dosdevices/' + AnsiLowerCase(DriveChar)); -- 2.11.4.GIT