equal
deleted
inserted
replaced
89 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
89 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
90 {$ENDIF} |
90 {$ENDIF} |
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 exit(@s[1]); |
98 exit(@s[1]); |
99 end; |
99 end; |