equal
deleted
inserted
replaced
161 if cLineWidth > 255 then cLineWidth:= 255; |
161 if cLineWidth > 255 then cLineWidth:= 255; |
162 for i:= 0 to Pred(cLinesCount) do PLongWord(@ConsoleLines[i])^:= 0 |
162 for i:= 0 to Pred(cLinesCount) do PLongWord(@ConsoleLines[i])^:= 0 |
163 end; |
163 end; |
164 |
164 |
165 procedure ParseCommand(CmdStr: shortstring); |
165 procedure ParseCommand(CmdStr: shortstring); |
166 type PReal = ^real; |
166 type PReal = ^Double; |
167 var i, ii: integer; |
167 var i, ii: integer; |
168 s: shortstring; |
168 s: shortstring; |
169 t: PVariable; |
169 t: PVariable; |
170 c: char; |
170 c: char; |
171 begin |
171 begin |