Changeset 10 for branches/Void/UMainForm.pas

Timestamp:

Nov 9, 2009, 3:02:26 PM (15 years ago)

Author:

george

Message:

• Přidáno: Parser jazyka Void (Pascalovský dialekt).
• Upraveno: Kontrola syntaxe srovnáváním typů parsovaných tokenů.

File:

• branches/Void/UMainForm.pas (modified) (3 diffs)

branches/Void/UMainForm.pas

@@ -31 +31 @@
     procedure FormShow(Sender: TObject);
   private
+    SourceCode: TMemoryStream;
     procedure CompilatorError(Text: string; var Terminate: Boolean;
       Position: TPoint);
@@ -67 +68 @@
 
 procedure TMainForm.ButtonCompileClick(Sender: TObject);
+var
+  Code: string;
 begin
   with Compilator do begin
     Memo3.Lines.Clear;
-    SourceCode.Assign(Memo1.Lines);
-
+    Code := Memo1.Lines.Text;
+    SourceCode.Size := 0;
+    SourceCode.Write(Code[1], Length(Code));
     if Assigned(Generator) then Generator.Destroy;
     if ComboBox1.ItemIndex = 0 then
@@ -78 +82 @@
     Compile;
     Memo2.Lines.Assign(Generator.Output);
-  end;
+    end;
 end;