hedgewars/uConsole.pas
changeset 6444 eddc1e9bcd81
parent 6033 6bcc36225162
child 6528 fb2918089225
equal deleted inserted replaced
6443:23364a5fcc86 6444:eddc1e9bcd81
    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;