Context Navigation

System.pas

Last change on this file was 25, checked in by george, 14 years ago
Updated: Support for newer generic library.
File size: 1.1 KB

Line
1	unit System;
2
3	interface
4
5	const
6	nil = 0;
7
8	type
9	TType = type;
10	Void = type(TType);
11	Ordinal = type(TType);
12	Float = type(TType);
13	Boolean = (False, True);
14
15	// Ordinal types
16	Byte = type(Ordinal);
17	ShortInt = type(Ordinal);
18	Word = type(Ordinal);
19	SmallInt = type(Ordinal);
20	Cardinal = type(Ordinal);
21	DWord = Cardinal;
22	LongWord = Cardinal;
23	Integer = type(Ordinal);
24	LongInt = Integer;
25	QWord = type(Ordinal);
26	Int64 = type(Ordinal);
27	Char = type(Ordinal);
28
29	// Float types
30	Real = type(Float);
31	Single = type(Float);
32	Double = type(Float);
33	Extended = type(Float);
34
35	String = array of Char;
36	Pointer = ^TType;
37	TObject = class;
38
39	type
40
41
42	TSystem = record
43	end;
44
45	procedure Exit; internal;
46	procedure Break; internal;
47	procedure Continue; internal;
48	procedure WriteLn(Text: string); internal;
49	function SizeOf(Source: TType): Integer; internal;
50	function IntToStr(Value: Integer): string; internal;
51
52	//procedure Move(const Source: type; var Dest: type; Count: Integer);
53	//procedure FillChar(var Dest: type; Count: Integer; Value: Byte);
54
55	implementation
56
57	initialization
58
59	finalization
60
61	end.

Note: See TracBrowser for help on using the repository browser.