X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Test.obn;h=a704f0db4d56d3206461fc18065a9afa32220c0e;hb=9ae75f92f805e23b0b151cf8be18a3fe96935c3b;hp=0f09bade1d5103f0fca051137c9cc8b9dd5656e5;hpb=0b724e12457f2507d398c51dc35200d833ce9362;p=dsw-obn.git diff --git a/Test.obn b/Test.obn index 0f09bad..a704f0d 100644 --- a/Test.obn +++ b/Test.obn @@ -1,13 +1,23 @@ MODULE Test; -IMPORT CPStrings, Out; + TYPE + CPinfo = RECORD + tag : INTEGER; + index : ARRAY 2 OF LONGINT; + int : LONGINT; + float : REAL; + long : HUGEINT; + double : LONGREAL; + utf8 : POINTER TO ARRAY OF CHAR; + END; -VAR - s : ARRAY 80 OF CHAR; + CPool = POINTER TO ARRAY OF CPinfo; + + VAR + i : HUGEINT; + cpool : CPool; BEGIN - CPStrings.IntToString(123456789, s); - Out.String(s); Out.Ln; - CPStrings.RealToString(321.123456, s); - Out.String(s); Out.Ln; + i := 16; + NEW(cpool, i); END Test.