hedgewars/pas2cRedo.pas
changeset 14918 68e1783762bc
parent 12109 f61bd25b9f70
child 15297 70d416a8f63f
equal deleted inserted replaced
14917:3a53309e684b 14918:68e1783762bc
    46     PLongWord = ^LongWord;
    46     PLongWord = ^LongWord;
    47     PInteger = ^Integer;
    47     PInteger = ^Integer;
    48 
    48 
    49     Handle = integer;
    49     Handle = integer;
    50 
    50 
       
    51     TDateTime = double;
       
    52 
    51 var
    53 var
    52     write, writeLn, read, readLn, flush, CreateDir: procedure;
    54     write, writeLn, read, readLn, flush, CreateDir: procedure;
    53 
    55 
    54     halt:procedure;
    56     halt:procedure;
    55 
    57 
    82     memcpy : procedure;
    84     memcpy : procedure;
    83     StrLength : function : integer;
    85     StrLength : function : integer;
    84 
    86 
    85      min, max:function:integer;
    87      min, max:function:integer;
    86     assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure;
    88     assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure;
    87     FileExists, DirectoryExists, eof : function : boolean;
    89     FileSize : function: Int64;
       
    90     FileExists, DirectoryExists, eof, DeleteFile : function : boolean;
    88 
    91 
    89     ParamCount : function : integer;
    92     ParamCount : function : integer;
    90     ParamStr : function : string;
    93     ParamStr : function : string;
    91 
    94 
    92     arctan2, power: function : float;
    95     arctan2, power: function : float;