16 lines
317 B
ObjectPascal
16 lines
317 B
ObjectPascal
MODULE TestLen;
|
|
|
|
IMPORT Out;
|
|
|
|
PROCEDURE DoByteLength*;
|
|
VAR s: ARRAY 16 OF CHAR; len, v: INTEGER;
|
|
BEGIN
|
|
s := "møøse";
|
|
len := LEN(s$);
|
|
v := SIZE(CHAR) * len;
|
|
Out.String("s: "); Out.String(s); Out.Ln;
|
|
Out.String("Length of characters in bytes: "); Out.Int(v, 0); Out.Ln
|
|
END DoByteLength;
|
|
|
|
END TestLen.
|