11 lines
110 B
ObjectPascal
11 lines
110 B
ObjectPascal
unit modif_test_unit;
|
|
|
|
type c=class
|
|
private
|
|
pp:integer;
|
|
procedure p;virtual; begin end;
|
|
|
|
end;
|
|
|
|
|
|
end. |