fpcsrc/tests/webtbs/tw2920.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

unit tw2920;

interface
{$mode Delphi}

Uses uw2920;

type myclass2= class(myclass)
                function bb:string; override;
                end;

implementation

function myclass2.bb:string;

begin
  bb:='b';
end;

begin
end.