Remove unused var

This commit is contained in:
mysticbbs 2012-07-02 15:53:19 -04:00
parent 62207bbd27
commit 8f6e43fed3
1 changed files with 0 additions and 1 deletions

View File

@ -1771,7 +1771,6 @@ Var
Function GetFileListSize (SizeInfo: String) : String; Function GetFileListSize (SizeInfo: String) : String;
Var Var
A : Cardinal; A : Cardinal;
S : String;
Begin Begin
If FDir.Flags And FDirOffline <> 0 Then If FDir.Flags And FDirOffline <> 0 Then
GetFileListSize := strWordGet(1, SizeInfo, ' ') GetFileListSize := strWordGet(1, SizeInfo, ' ')