mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
24 lines
246 B
ObjectPascal
24 lines
246 B
ObjectPascal
program tclass10;
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
type
|
|
|
|
{ c }
|
|
|
|
c=class
|
|
type
|
|
TSomeType = (st1, st2);
|
|
function DoSomething: TSomeType;
|
|
end;
|
|
|
|
{ c }
|
|
|
|
function c.DoSomething: TSomeType;
|
|
begin
|
|
Result := st1;
|
|
end;
|
|
|
|
begin
|
|
end. |