mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
33 lines
366 B
ObjectPascal
33 lines
366 B
ObjectPascal
{ 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.
|