pascalabcnet/TestSuite/formatstring2.pas

12 lines
228 B
ObjectPascal
Raw Normal View History

2018-03-21 23:01:54 +03:00
begin
var a := 2;
var b := 3;
var c := 4;
var s := $'Hello {a}';
assert(s = 'Hello 2');
s := $'{a},{b},{c}';
assert(s = '2,3,4');
2018-03-22 23:34:42 +03:00
s := $'{a+1},{b+1},{c+1}';
assert(s = '3,4,5');
2018-07-18 22:06:52 +03:00
assert($'abc'=$'abc');
2018-03-21 23:01:54 +03:00
end.