Changeset 230 for branches/xpascal/Generators/GeneratorPascal.pas

Timestamp:

Jun 26, 2023, 12:08:45 PM (17 months ago)

Author:

chronos

Message:

• Added: Var function parameters support.
• Added: Read and ReadLn procedures support.
• Added: Interpreter now prints into console form.

File:

• branches/xpascal/Generators/GeneratorPascal.pas (modified) (1 diff)

branches/xpascal/Generators/GeneratorPascal.pas

@@ -231 +231 @@
     else if FunctionDef.InternalName = 'Write' then AddTextLine('System.Write(Text);')
     else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return SysUtils.IntToStr(Value);')
-    else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return SysUtils.StrToInt(Value);');
+    else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return SysUtils.StrToInt(Value);')
+    else if FunctionDef.InternalName = 'BoolToStr' then AddTextLine('return SysUtils.BoolToStr(Value);')
+    else if FunctionDef.InternalName = 'StrToBool' then AddTextLine('return SysUtils.StrToBool(Value);');
     Indent := Indent - 1;
     AddTextLine('end;');