Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / DMCore / StandardObject
.pas 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.
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