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

Reply via email to