Changeset 21 for trunk/Demos/Structure

Timestamp:

Nov 9, 2010, 2:08:55 PM (13 years ago)

Author:

george

Message:

• Modified: Project saving.

Location:

trunk/Demos/Structure

Files:

• . (modified) (1 prop)
• Project.pas (modified) (1 diff)
• System.pas (modified) (3 diffs)

trunk/Demos/Structure/Project.pas

@@ -1 +1 @@
 program Project;
 
-uses System, Crt;
+uses System;
 
 type
+  
+  TPercent = 0..100;
+  
   TPoint = record
     X: Integer;

trunk/Demos/Structure/System.pas

@@ -3 +3 @@
 interface
 
+const
+  nil = 0;
+  
 type
-  Void = type;
-  Ordinal = type(Void); 
-  Float = type(Void); 
+  TType = type;
+  Void = type(TType);
+  Ordinal = type(TType); 
+  Float = type(TType); 
   Boolean = (False, True);
   
@@ -30 +34 @@
   
   String = array of Char;
-  Pointer = ^Void;
-  TObject = class
-    function ClassName: string;
-    constructor Create; internal;
-    destructor Destroy; internal;
-  end;
+  Pointer = ^TType;
+  TObject = class;
 
-const
-  MemoryManagerSizeType: TType = Integer;
+type
   
-type
-  TMemoryManager = record
-    function Alloc(Size: Integer): Pointer;
-    function Free(P: Pointer): Integer;
-    function Realloc(P: Pointer; Size: Integer): Pointer;
-  end;
-  PMemoryManager = ^TMemoryManager;
   
   TSystem = record
-    MemoryManager: TMemoryManager; 
   end;
 
@@ -55 +46 @@
 procedure Break; internal;
 procedure Continue; internal;
-procedure WriteLn; internal;
+procedure WriteLn(Text: string); internal;
+function SizeOf(Source: TType): Integer; internal;
+function IntToStr(Value: Integer): string; internal;
 
-procedure Move(const Source: type; var Dest: type; Count: Integer);
-procedure FillChar(var Dest: type; Count: Integer; Value: Byte);
+procedure Move(const Source: TType; var Dest: TType; Count: Integer); internal;
+procedure FillChar(var Dest: TType; Count: Integer; Value: Byte); internal;
   
 implementation
-
-uses
-  MemoryManager;
 
 initialization