30 lines
474 B
ObjectPascal
30 lines
474 B
ObjectPascal
|
{********************************************************
|
||
|
*
|
||
|
* Object Interface
|
||
|
*
|
||
|
* Other USES Files Needed: - None -
|
||
|
*
|
||
|
* Copyright 1993
|
||
|
* By the Byte Works, Inc.
|
||
|
* All Rights Reserved
|
||
|
*
|
||
|
*********************************************************}
|
||
|
|
||
|
{$keep 'ObjIntf'}
|
||
|
|
||
|
unit ObjIntf;
|
||
|
|
||
|
interface
|
||
|
|
||
|
type
|
||
|
tObject = object
|
||
|
function ShallowClone: tObject;
|
||
|
function Clone: tObject;
|
||
|
procedure ShallowFree;
|
||
|
procedure Free;
|
||
|
end;
|
||
|
|
||
|
implementation
|
||
|
|
||
|
end.
|