aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Variable-size-Set/Delphi/variable-size-set.delphi Normal file
View file

@ -0,0 +1,23 @@
{In Delphi you can have variables of a range of sizes}
var B: Byte; {8-bit, unsigned}
var C: char; {ASCII character}
var SI: shortint; {8-bit, signed}
var SM: Smallint; {16-bit signed}
var LI: Longint; {32-bit signed}
var W: word; {16-bit unsigned}
var LW: Longword; {32-bit unsigned}
var II: Int64; {64-bit signed}
var SR: Real48; {6-byte real}
var SN: single; {4-byte real}
var DB: double; {8-byte real}
var EX: Extended; {10-byte real}
var CM: Comp; {8-byte fixed point}
var CR: Currency; {8-byte fixed point}
{You can also custom define the size range of variable}
type TNumRange = -128..127;
var NM: TNumRange;
type TUpperCase = 'A'..'Z';
var UP: TUpperCase;