equal
deleted
inserted
replaced
58 if CmdStr[0]=#0 then exit; |
58 if CmdStr[0]=#0 then exit; |
59 c:= CmdStr[1]; |
59 c:= CmdStr[1]; |
60 if c in ['/', '$'] then Delete(CmdStr, 1, 1) else c:= '/'; |
60 if c in ['/', '$'] then Delete(CmdStr, 1, 1) else c:= '/'; |
61 s:= ''; |
61 s:= ''; |
62 SplitBySpace(CmdStr, s); |
62 SplitBySpace(CmdStr, s); |
63 {$IFDEF DEBUGFILE}AddFileLog('[Cmd] ' + c + CmdStr + ' (' + inttostr(length(CmdStr)) + ')');{$ENDIF} |
63 {$IFDEF DEBUGFILE}AddFileLog('[Cmd] ' + c + CmdStr + ' (' + inttostr(length(s)) + ')');{$ENDIF} |
64 t:= Variables; |
64 t:= Variables; |
65 while t <> nil do |
65 while t <> nil do |
66 begin |
66 begin |
67 if t^.Name = CmdStr then |
67 if t^.Name = CmdStr then |
68 begin |
68 begin |