RosettaCodeData/Task/Literals-String/Modula-3/literals-string-3.mod3
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

5 lines
140 B
Text

VAR str: TEXT := "Foo";
VAR chrarray: ARRAY [1..3] OF CHAR;
Text.SetChars(chrarray, str);
(* chrarray now has the value ['F', 'o', 'o'] *)