Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-22 15:13:49 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

SysUtils helper types moved to System unit

Browse Source
This commit is contained in:
Владислав Джавадов
2021-01-10 10:12:00 +03:00
parent d808aeb0f9
commit 08306b3601
3 changed files with 40 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Examples/Console/ReadFolder/ReadFolder.dpr
View File

@@ -1,7 +1,7 @@
program ReadFolderApp; program ReadFolderApp;
uses uses
KolibriOS, CRT, SysUtils; KolibriOS, CRT;
const const
Path = '/sys'; Path = '/sys';

35
Lib/SysUtils.pas
View File

@@ -9,35 +9,18 @@ unit SysUtils;
interface interface
type type
WordRec = packed record WordRec = System.WordRec;
case Byte of LongRec = System.LongRec;
0: (Lo, Hi: Byte); Int64Rec = System.Int64Rec;
1: (Bytes: array [0..1] of Byte);
end;
LongRec = packed record PByteArray = System.PByteArray;
case Byte of TByteArray = System.TByteArray;
0: (Lo, Hi: Word);
1: (Words: array [0..1] of Word);
2: (Bytes: array [0..3] of Byte);
end;
Int64Rec = packed record PWordArray = System.PWordArray;
case Byte of TWordArray = System.TWordArray;
0: (Lo, Hi: LongWord);
1: (LongWords: array [0..1] of LongWord);
2: (Words: array [0..3] of Word);
3: (Bytes: array [0..7] of Byte);
end;
PByteArray = ^TByteArray; PLongWordArray = System.PLongWordArray;
TByteArray = array[0..MaxInt - 1] of Byte; TLongWordArray = System.TLongWordArray;
PWordArray = ^TWordArray;
TWordArray = array[0..MaxInt div SizeOf(Word) - 1] of Word;
PLongWordArray = ^TLongWordArray;
TLongWordArray = array[0..MaxInt div SizeOf(LongWord) - 1] of LongWord;
implementation implementation

30
Lib/System.pas
View File

@@ -68,6 +68,36 @@ type
PVariant = ^Variant; PVariant = ^Variant;
WordRec = packed record
case Byte of
0: (Lo, Hi: Byte);
1: (Bytes: array [0..1] of Byte);
end;
LongRec = packed record
case Byte of
0: (Lo, Hi: Word);
1: (Words: array [0..1] of Word);
2: (Bytes: array [0..3] of Byte);
end;
Int64Rec = packed record
case Byte of
0: (Lo, Hi: LongWord);
1: (LongWords: array [0..1] of LongWord);
2: (Words: array [0..3] of Word);
3: (Bytes: array [0..7] of Byte);
end;
PByteArray = ^TByteArray;
TByteArray = array[0..0] of Byte;
PWordArray = ^TWordArray;
TWordArray = array[0..0] of Word;
PLongWordArray = ^TLongWordArray;
TLongWordArray = array[0..0] of LongWord;
PGUID = ^TGUID; PGUID = ^TGUID;
TGUID = record TGUID = record
D1: LongWord; D1: LongWord;