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

System.TVarType improvement © 0CodErr

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-09 23:03:10 +03:00
parent fe38ee81a1
commit c9b180ef16
1 changed files with 26 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
RTL/System.pas
View File

@@ -6,26 +6,6 @@ unit System;
interface interface
const
// Open array VarType values
vtInteger = 0;
vtBoolean = 1;
vtChar = 2;
vtExtended = 3;
vtString = 4;
vtPointer = 5;
vtPChar = 6;
vtObject = 7;
vtClass = 8;
vtWideChar = 9;
vtPWideChar = 10;
vtAnsiString = 11;
vtCurrency = 12;
vtVariant = 13;
vtInterface = 14;
vtWideString = 15;
vtInt64 = 16;
type type
PPAnsiChar = ^PAnsiChar; PPAnsiChar = ^PAnsiChar;
@@ -36,8 +16,8 @@ type
PLongWord = ^LongWord; PLongWord = ^LongWord;
PLongInt = ^LongInt; PLongInt = ^LongInt;
PInt64 = ^Int64; PInt64 = ^Int64;
{$IF CompilerVersion > 14} {$IF CompilerVersion >= 15}
// PUInt64 = ^UInt64; PUInt64 = ^UInt64;
{$IFEND} {$IFEND}
PCardinal = ^Cardinal; PCardinal = ^Cardinal;
@@ -79,26 +59,32 @@ type
OuterContext: PInitContext; OuterContext: PInitContext;
end; end;
TVarType = (
vtInteger, vtBoolean, vtAnsiChar, vtExtended, vtShortString, vtPointer, vtPAnsiChar,
vtObject, vtClass, vtWideChar, vtPWideChar, vtAnsiString, vtCurrency, vtVariant, vtInterface,
vtWideString, vtInt64
);
PVarRec = ^TVarRec; PVarRec = ^TVarRec;
TVarRec = record { do not pack this record; it is compiler-generated } TVarRec = record { do not pack this record; it is compiler-generated }
case Byte of case TVarType of
vtInteger: (VarInteger: Integer; VarType: Byte); vtInteger: (VarInteger: Integer; VarType: Byte);
vtBoolean: (VarBoolean: Boolean); vtBoolean: (VarBoolean: Boolean);
vtChar: (VarChar: Char); vtAnsiChar: (VarChar: AnsiChar);
vtExtended: (VarExtended: PExtended); vtExtended: (VarExtended: PExtended);
vtString: (VarString: PShortString); vtShortString: (VarString: PShortString);
vtPointer: (VarPointer: Pointer); vtPointer: (VarPointer: Pointer);
vtPChar: (VarPChar: PChar); vtPAnsiChar: (VarPChar: PAnsiChar);
vtObject: (VarObject: Pointer); vtObject: (VarObject: Pointer);
vtClass: (VarClass: Pointer); vtClass: (VarClass: Pointer);
vtWideChar: (VarWideChar: WideChar); vtWideChar: (VarWideChar: WideChar);
vtPWideChar: (VarPWideChar: PWideChar); vtPWideChar: (VarPWideChar: PWideChar);
vtAnsiString: (VarAnsiString: PAnsiChar); vtAnsiString: (VarAnsiString: PAnsiChar);
vtCurrency: (VarCurrency: PCurrency); vtCurrency: (VarCurrency: PCurrency);
vtVariant: (VarVariant: PVariant); vtVariant: (VarVariant: PVariant);
vtInterface: (VarInterface: Pointer); vtInterface: (VarInterface: Pointer);
vtWideString: (VarWideString: PWideChar); vtWideString: (VarWideString: PWideChar);
vtInt64: (VarInt64: PInt64); vtInt64: (VarInt64: PInt64);
end; end;
procedure _Halt0; procedure _Halt0;