8 lines
257 B
ObjectPascal
8 lines
257 B
ObjectPascal
begin
|
|
var s := '12 34 56';
|
|
Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56)));
|
|
Assert(s.ToIntegers.ArrEqual(Arr(12,34,56)));
|
|
s := ' 12 34 56 ';
|
|
Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56)));
|
|
Assert(s.ToIntegers.ArrEqual(Arr(12,34,56)));
|
|
end. |