pascalabcnet/TestSuite/classconst3.pas
Ivan Bondarev ff55c29fee #1554
2021-04-05 14:39:02 +02:00

11 lines
220 B
ObjectPascal

type
TClass = class
public const b: array of string = ('abc','def');
public const s: string = 'tt';
end;
begin
assert(TClass.b[0] = 'abc');
assert(TClass.b[1] = 'def');
assert(TClass.s = 'tt');
end.