Changeset 66 for trunk/Demos

Timestamp:

Jul 19, 2012, 8:16:57 AM (12 years ago)

Author:

chronos

Message:

• Added: Information text about completion of build process including elapsed time.

Location:

trunk/Demos/Simple

Files:

• Simple.dpr (modified) (1 diff)
• System.pas (modified) (1 diff)

trunk/Demos/Simple/Simple.dpr

@@ -9 +9 @@
   A := 2;
   A := A + 1;
+  WriteLn('Hello world!');
   ReadLn;
 end.

trunk/Demos/Simple/System.pas

@@ -4 +4 @@
 
 type
-  Integer = type;
+  Integer = type; internal;
+  String = type; internal;
   
-procedure ReadLn;
+function ReadLn: string; internal;
+procedure WriteLn(Text: string); internal;
 
 implementation
 
-procedure ReadLn;
+function ReadLn: string;
+begin
+  Result := '';
+end;
+
+procedure WriteLn(Text: string);
 begin
 end;