equal
deleted
inserted
replaced
91 {$ENDIF} |
91 {$ENDIF} |
92 end; |
92 end; |
93 |
93 |
94 function ShortStringAsPChar(s: ShortString) : PChar; |
94 function ShortStringAsPChar(s: ShortString) : PChar; |
95 begin |
95 begin |
96 if Length(S) = High(s) then Dec(s[0]); |
96 if Length(s) = High(s) then Dec(s[0]); |
97 s[Ord(Length(s))+1] := #0; |
97 s[Ord(Length(s))+1] := #0; |
98 Result := @S[1]; |
98 exit(@s[1]); |
99 end; |
99 end; |
100 |
100 |
101 function GetLastConsoleLine: shortstring; |
101 function GetLastConsoleLine: shortstring; |
102 var valueStr: shortstring; |
102 var valueStr: shortstring; |
103 i: LongWord; |
103 i: LongWord; |