Changeset 33 for branches/Syntetizer/UMainForm.pas

Timestamp:

Aug 4, 2010, 1:53:01 PM (14 years ago)

Author:

george

Message:

• Upraveno: Rozšířen pascal syntetizer.

File:

• branches/Syntetizer/UMainForm.pas (modified) (2 diffs)

branches/Syntetizer/UMainForm.pas

@@ -51 +51 @@
         Value := 'CONSOLE';
       end;
+      with Procedures do begin
+        with TProcedure(Procedures[Procedures.Add(TProcedure.Create)]) do begin
+          Name := 'Boom';
+          with TProcedureParameter(Parameters[Parameters.Add(TProcedureParameter.Create)]) do begin
+            Name := 'Value';
+            VarType := 'string';
+          end;
+          with Code do begin
+            with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
+              Name := 'WriteLn';
+              with TProcedureParameterValue(Parameters[Parameters.Add(TProcedureParameterValue.Create)]) do begin
+                Value := 'Value';
+              end;
+            end;
+          end;
+        end;
+      end;
       with Variables do begin
         with TVariableDeclaration(Variables[Variables.Add(TVariableDeclaration.Create)]) do begin
@@ -60 +77 @@
         with TProcedureCall(Commands[Commands.Add(TProcedureCall.Create)]) do begin
           Name := 'WriteLn';
-          with TProcedureParameter(Parameters[Parameters.Add(TProcedureParameter.Create)]) do begin
+          with TProcedureParameterValue(Parameters[Parameters.Add(TProcedureParameterValue.Create)]) do begin
             Value := '''Hello hell''';
           end;