Changeset 236 for branches/xpascal/Examples/Example.pas

Timestamp:

Jun 29, 2023, 1:47:58 AM (17 months ago)

Author:

chronos

Message:

• Fixed: Var function parameters processed correctly for both user defined and internal functions.

File:

• branches/xpascal/Examples/Example.pas (modified) (2 diffs)

branches/xpascal/Examples/Example.pas

@@ -17 +17 @@
 begin
   WriteLn(Text);
+end;
+
+procedure SetText(var Text: string, NewText: string);
+begin
+  Text := NewText;
 end;
 
@@ -72 +77 @@
   WriteLn(A);
 
+  SetText(A, 'New text');
+  WriteLn('New text: ' + A);
+
   WriteLn('What is your name?');
   ReadLn(A);