paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 12:11:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added some delphi compatibility types

Browse Source
This commit is contained in:
michael 2000-08-13 17:55:14 +00:00
parent 11af7f6f18
commit 7aa1e88a5d
2 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/system.inc
View File

@ -32,10 +32,6 @@ Procedure HandleErrorFrame (Errno : longint;frame : longint); forward;
type
FileFunc = Procedure(var t : TextRec);
PByte = ^Byte;
PWord = ^word;
PDWord = ^DWord;
PLongint = ^Longint;
const
{ Random / Randomize constants }
@ -639,7 +635,10 @@ end;
{
$Log$
Revision 1.4 2000-08-09 19:31:18 marco
Revision 1.5 2000-08-13 17:55:14 michael
+ Added some delphi compatibility types
Revision 1.4 2000/08/09 19:31:18 marco
* fixes for val(int64 or qword) to ansistring
Revision 1.3 2000/07/14 10:33:10 michael

25
rtl/inc/systemh.inc
View File

@ -84,6 +84,7 @@ Type
{ Zero - terminated strings }
PChar = ^Char;
PPChar = ^PChar;
{ Delphi types }
TAnsiChar = Char;
AnsiChar = TAnsiChar;
@ -91,6 +92,25 @@ Type
PQWord = ^QWord;
PInt64 = ^Int64;
currency = int64;
HRESULT = Longint;
TDateTime = Double;
Error = Longint;
PSmallInt = ^Smallint;
PInteger = ^Longint;
PSingle = ^Single;
PDouble = ^Double;
PCurrency = ^Currency;
PDate = ^TDateTime;
PPWideChar = ^PWideChar;
PError = ^Error;
PWordBool = ^WordBool;
PByte = ^Byte;
PWord = ^word;
PDWord = ^DWord;
PLongint = ^Longint;
{$ifdef HASWIDECHAR}
PWideChar = ^WideChar;
{$endif HASWIDECHAR}
@ -456,7 +476,10 @@ const
{
$Log$
Revision 1.4 2000-08-08 22:11:45 sg
Revision 1.5 2000-08-13 17:55:15 michael
+ Added some delphi compatibility types
Revision 1.4 2000/08/08 22:11:45 sg
* Added declarations for WideString utility functions
Revision 1.3 2000/07/14 10:33:10 michael