Скачиваний:
28
Добавлен:
01.05.2014
Размер:
770 б
Скачать
unit StandardObject;

interface

uses
Classes;

type
TDMStandardObject = class
public
function cloneObject : TObject; virtual; abstract;
function copyObject : TObject; virtual; abstract;
function equals( otherObject : TObject ) : Boolean; virtual;
function toString : AnsiString; virtual;
function toStrings : TStrings; virtual;
end;

implementation

function TDMStandardObject.toString : AnsiString;
begin
Result := '';
end;

function TDMStandardObject.toStrings : TStrings;
begin
//Result.Add('');
end;

function TDMStandardObject.equals( otherObject : TObject ) : Boolean;
begin
Result := false;
if otherObject = Self then Result := true;
end;

end.
Соседние файлы в папке DMCore