Changeset 5 for branches/Void/project1.lpr

Timestamp:

Nov 9, 2009, 8:34:09 AM (15 years ago)

Author:

george

Message:

• Přidáno: Podpora pro proměnné.

Location:

branches/Void

Files:

• . (modified) (1 prop)
• project1.lpr (modified) (3 diffs)

branches/Void

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk

branches/Void/project1.lpr

@@ -10 +10 @@
 
 type
+
+  { TApplication }
+
   TApplication = class(TCustomApplication)
   protected
     procedure DoRun; override;
+    procedure CompilatorError(Text: string; var Terminate: Boolean);
   public
     Compilator: TCompilator;
@@ -34 +38 @@
 
   Compilator := TCompilator.Create;
-  Compilator.Compile('Example.void');
-  Compilator.Destroy;
-  //ReadLn;
+  with Compilator do begin
+    OnError := CompilatorError;
+    Compile('Example.void');
+    Destroy;
+  end;
+  ReadLn;
 
   // stop program loop
   Terminate;
+end;
+
+procedure TApplication.CompilatorError(Text: string; var Terminate: Boolean);
+begin
+  Terminate := False;
+  WriteLn('Error: ' + Text);
 end;
 
@@ -46 +59 @@
   inherited Create(TheOwner);
   StopOnException := True;
-end;
+
+  end;
 
 destructor TApplication.Destroy;

@@ -5 +5 @@
 Example.void.bdsproj
 project1.exe
+*.dsk