Курсовой проект групп 3341 и 3382 / DMCore / StandardObject

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.