equal
deleted
inserted
replaced
95 function ShortStringAsPChar(s: shortstring) : PChar; |
95 function ShortStringAsPChar(s: shortstring) : PChar; |
96 begin |
96 begin |
97 if Length(s) = High(s) then |
97 if Length(s) = High(s) then |
98 Dec(s[0]); |
98 Dec(s[0]); |
99 s[Ord(Length(s))+1] := #0; |
99 s[Ord(Length(s))+1] := #0; |
100 exit(@s[1]); |
100 ShortStringAsPChar:= @s[1]; |
101 end; |
101 end; |
102 |
102 |
103 function GetLastConsoleLine: shortstring; |
103 function GetLastConsoleLine: shortstring; |
104 var valueStr: shortstring; |
104 var valueStr: shortstring; |
105 i: LongWord; |
105 i: LongWord; |