tests/webtbs/tw25814.pp


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

{ %norun }
{ %recompile=-dchangeuses }

unit tw25814;

{$mode delphi}

interface

uses {$ifdef changeuses}sysutils,{$endif} classes, uw25814;

type
  test = class
  function xyz(b: string): string;
  end;

implementation

function test.xyz(b: string): string;
begin
 result:='';
end;

end.