RosettaCodeData/Task/Literals-String/Modula-3/literals-string-3.mod3

6 lines
140 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
VAR str: TEXT := "Foo";
VAR chrarray: ARRAY [1..3] OF CHAR;
Text.SetChars(chrarray, str);
(* chrarray now has the value ['F', 'o', 'o'] *)