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