blob: 4d888f082936925167b6fc48a18c105af0d9bdef (
plain)
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
26
27
28
29
30
31
32
|
{ Old file: tbs0082.pp }
{ Shows incompatibility with BP : Multiple destructors. OK 0.99.1 (FK) }
Unit tb0075;
interface
Type T = OBject
Constructor Init;
Destructor Free; virtual;
Destructor Destroy; virtual;
end;
implementation
constructor T.INit;
begin
end;
Destructor t.Free;
begin
end;
Destructor t.Destroy;
begin
end;
end.
|
