mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 09:59:25 +02:00
13 lines
176 B
ObjectPascal
13 lines
176 B
ObjectPascal
{ %fail }
|
|
|
|
USES uw2414;
|
|
|
|
VAR
|
|
ob : anObj;
|
|
BEGIN
|
|
ob.k:=8;
|
|
ob.A('xxyyzzww');
|
|
ob.A('aabbcc',4); { call to a private method allowed !? }
|
|
END
|
|
.
|