Changeset 27 for branches/Syntetizer/UMainForm.pas

Timestamp:

Oct 29, 2009, 11:07:49 AM (15 years ago)

Author:

george

Message:

• Přidáno: Deklarace proměnných a volání procedur.

File:

• branches/Syntetizer/UMainForm.pas (modified) (1 diff)

branches/Syntetizer/UMainForm.pas

@@ -47 +47 @@
     with TProgram(BaseElement) do begin
       Name := 'Test';
+      with TCompilerDirective(CompilerDirectives[CompilerDirectives.Add(TCompilerDirective.Create)]) do begin
+        Variable := 'APPTYPE';
+        Value := 'CONSOLE';
+      end;
+      with Variables do begin
+        with TVariableDeclaration(Variables[Variables.Add(TVariableDeclaration.Create)]) do begin
+          Name := 'Text';
+          VarType := 'string';
+        end;
+      end;
+      with Code do begin
+        with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
+          Name := 'WriteLn';
+          with TProcedureParameter(Parameters[Parameters.Add(TProcedureParameter.Create)]) do begin
+            Value := '''Hello hell''';
+          end;
+        end;
+        with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
+          Name := 'ReadLn';
+        end;
+      end;
     end;
     Syntetize;
     Memo1.Lines.Assign(Output);
-    Output.SaveToFile('Output.pas');
+    Output.SaveToFile('Output.dpr');
   end;
 end;