fpcsrc/tests/webtbs/tw3265.pp


1
2
3
4
5
6
7
8
9
10
11
12

{$MODE Delphi}
type
  TTest = class (TObject)
    procedure Test; deprecated;
  end;

procedure TTest.Test;
begin
end;

begin
end.