blob: d3e6c8ed71ff6192e533e882ef7ecdec48beafcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ %fail }
unit tw2357;
interface
type
TQ = class(TObject)
public
procedure DoSome(const X); virtual; abstract;
function GetSome : integer; virtual; overload;
function GetSome : string; virtual; overload; abstract;
end;
implementation
end.
|
