Server Side Delphi - Kestral Computing Start Index Next

  Delphi 3 -> Delphi 4

In D4, $FFFFFFFF <> -1

int64 - 64bit signed integer, Cardinal - true unsigned 32bit integer

D3: DWord = integer (4byte signed integer),
D4: DWord = Cardinal (4 byte unsigned integer)

[Warning] kmmCore.pas(1440): Combining Unsigned and unsigned types - widened both operands
 
Function FileOpen (sysutils.pas)
Result := CreateFile(PChar(FileName), AccessMode[Mode and 3],
ShareMode[(Mode and $F0) shr 4], nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
//A return value of -1 indicates that an error occurred

 

Grahame Grieve