[DUG]: "Declaration of XXXXXXXXXXXXX differs from previous declaration"

[Chris Crowe]

Hi,
  Under Delphi 5 I get an error stating that the "Declaration of Assign
differs from previous declaration", I also get the same problem for the
function "Equals"

I really can't see the problem.....

This is the declaration for the Object, TInternal

  TInternal = object
    m_type : DATA_OBJECT_TYPES;         // What context is the data object.
    m_cookie : LongInt;                 // What object the cookie represents
    m_string : string;                  //
    m_clsid : TGuid;                    // Class ID of who created this data
object

    constructor Create;
    procedure Assign (const Another : TInternal);
    function Equals (const Another : TInternal) : boolean;
  end;
  PInternal = ^TInternal;


This is where Delphi 5, tells me it is different, I can not see it, can
anyone else?

procedure TInternal.Assign (const Another : TInternal);
begin
  m_type := Another.m_type;
  m_cookie := Another.m_cookie;
  m_string := Another.m_string;
  Move (Another.m_clsid, m_clsid, sizeof (m_clsid))
end;


And again Delphi says that this declaration is also dfferent!

function TInternal.Equals (const Another : TInternal) : boolean;
begin
 result := m_string = Another.m_string
end;

Chris

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz