mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 01:28:04 +02:00
27 lines
346 B
ObjectPascal
27 lines
346 B
ObjectPascal
|
|
TYPE
|
|
tmyexample =object
|
|
public
|
|
constructor init;
|
|
destructor done; virtual;
|
|
private
|
|
procedure mytest;virtual; { syntax error --> should give only a
|
|
warning ? }
|
|
end;
|
|
|
|
constructor tmyexample.init;
|
|
begin
|
|
end;
|
|
|
|
destructor tmyexample.done;
|
|
Begin
|
|
end;
|
|
|
|
procedure tmyexample.mytest;
|
|
begin
|
|
end;
|
|
|
|
Begin
|
|
end.
|
|
|