Changeset 10 for branches/Void/UOutputGenerator.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/UOutputGenerator.pas (modified) (2 diffs)

branches/Void/UOutputGenerator.pas

@@ -85 +85 @@
           ParameterText := '';
           for P := 0 to Parameters.Count - 1 do
-            ParameterText := ParameterText + Parameters[P] + ', ';
+            ParameterText := ParameterText + '''' + Parameters[P] + ''', ';
           Row := Row + '(' + Copy(ParameterText, 1, Length(ParameterText) - 2) + ')';
         end;
@@ -129 +129 @@
             ParameterText := '';
             for P := 0 to Parameters.Count - 1 do
-              ParameterText := ParameterText + Parameters[P] + ', ';
+              ParameterText := ParameterText + '''' + Parameters[P] + ''', ';
             Row := Row + Copy(ParameterText, 1, Length(ParameterText) - 2);
           end;