mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 11:48:10 +02:00
29 lines
278 B
ObjectPascal
29 lines
278 B
ObjectPascal
Unit bug0083;
|
|
|
|
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. |