Is TInternal inheriting from anyother object or is this pasted code...
Anything that inherits from tpersistent would get a warning that your
declaration of Assign hides the declaration on TPersistent.
> 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"
>
> 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
> 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;
Is there anything in the uses clause (after the implementation) that might
change the
meaning of TInternal?
--
Aaron@home
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
