source: trunk/Demos/Structure/System.pas

unit System;

interface

const
  nil = 0;
  
type
  TType = type;
  Void = type(TType);
  Ordinal = type(TType); 
  Float = type(TType); 
  Boolean = (False, True);
  
  // Ordinal types
  Byte = type(Ordinal);
  ShortInt = type(Ordinal);
  Word = type(Ordinal);
  SmallInt = type(Ordinal); 
  Cardinal = type(Ordinal); 
  DWord = Cardinal; 
  LongWord = Cardinal; 
  Integer = type(Ordinal); 
  LongInt = Integer; 
  QWord = type(Ordinal); 
  Int64 = type(Ordinal); 
  Char = type(Ordinal); 
  
  // Float types
  Real = type(Float); 
  Single = type(Float); 
  Double = type(Float); 
  Extended = type(Float);
  
  String = array of Char;
  Pointer = ^TType;
  TObject = class;

type
  
  
  TSystem = record
  end;

procedure Exit; internal;
procedure Break; internal;
procedure Continue; internal;
procedure WriteLn(Text: string); internal;
function SizeOf(Source: TType): Integer; internal;
function IntToStr(Value: Integer): string; internal;

procedure Move(const Source: TType; var Dest: TType; Count: Integer); internal;
procedure FillChar(var Dest: TType; Count: Integer; Value: Byte); internal;
  
implementation

initialization

finalization

end.