changeset 6992 | b8f3d8991e92 |
parent 6923 | d2405a6a86f5 |
child 7407 | c1ade666c124 |
6991:1ec44dde5eb9 | 6992:b8f3d8991e92 |
---|---|
66 end; |
66 end; |
67 end; |
67 end; |
68 |
68 |
69 |
69 |
70 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
70 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
71 var ii: LongInt; |
71 var s: shortstring; |
72 s: shortstring; |
|
73 t: PVariable; |
72 t: PVariable; |
74 c: char; |
73 c: char; |
75 begin |
74 begin |
76 //WriteLnToConsole(CmdStr); |
75 //WriteLnToConsole(CmdStr); |
77 if CmdStr[0]=#0 then |
76 if CmdStr[0]=#0 then |