There should not be anything like that Aaron, the code I pasted is from the
source file.
The file is Delphi 3 source code to make a MMC (Microsoft Management
Console) plugin.
I can not find anything that is wrong....
The file can be downloaded from
http://www.wilsonc.demon.co.uk/Delphi%20Components/snapins/snapin.zip
It is quite small at about 104KB.
ps: The site above is really good for NT specific things, like Performance
Data, NT Services, Event Viewer code and other goodies.
Chris
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Aaron Scott-Boddendijk
Sent: Tuesday, 1 February 2000 08:29
To: Multiple recipients of list Delphi
Subject: Re: [DUG]: "Declaration of XXXXXXXXXXXXX differs from previous
declaration"
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
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
