Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   problema al implementar Interface y variables tipo arreglos!! (https://www.clubdelphi.com/foros/showthread.php?t=73921)

erickperez6 24-05-2011 20:32:41

problema al implementar Interface y variables tipo arreglos!!
 
Tengo la siguiente interface declarada en una unit:

Código:

use personas

interface

type
  Tllave = array[0..31] of byte;
  Tdatos = array of byte;

  ImyInterface = interface(IInterface)

    function nombre : string;
    function edad : integer;
    procedure resetear;
    function Proceso(datos : tdatos; cantidad : integer) : integer ;   
    procedure Iniciar(llave : Tllave);
  end;
....

En otra unit tengo la declaracion de mi objeto que utilizara la interface ya definida:

Código:

use militares

interface

uses personas;

type

  Tmilitares = Class(TInterfacedObject, ImyInterface )
    public
      function nombre : string;
      function edad : integer;
      procedure resetear;
      function Proceso(datos : Tdatos; cantidad : integer) : integer ;   
      procedure Iniciar(llave : Tllave);
    published
      constructor create;
  end;

implementation

function tmilitares.Proceso(datos : tdatos; cantidad : integer) : integer ; // error aqui !!
begin
  // ....
end;


procedure tmilitares.Iniciar(llave : Tllave); // error aqui !!
begin
  // ....
end;

El error arrojado es: declaration of 'Iniciar' differs from previous declaration y declaration of 'Proceso' differs from previous declaration. Como he podido observar, este error solo me sucede con los procedimientos y funciones que utilizan una definicion de tipos especiales en los parametros (arreglos), despues en las otras funciones que estan declaradas no hay ningun problema, solo con estas dos. El mensaje de error me habla que difieren las declaraciones con la definicion que esta en el objeto mas arriba, pero no veo ninguna diferencia.

Creo que no es la forma correcta de declarar estas funciones o procedimiento cuando tienen arreglos definidos en sus parametros, pero no encuentro ninguna informacion que me oriente.

Al González 24-05-2011 22:35:57

Acabo de hacer una prueba y compila sin problemas.

Puede que tengas duplicada la declaración de los tipos TLlave y TDatos en dos o más unidades, y por ello el mensaje del compilador.

¿La declaración de los tipos de datos y las cláusulas Uses que nos muestras están completas?

erickperez6 24-05-2011 23:17:37

si, el codigo no estaba 100% completo, removi algunas referencias que pense que no eran importantes, y efectivamente estaban duplicados estos tipos en otras unidades que se invocaban en el uses, nunca se me iba a ocurrir este detalle, pues dos cabezas piensan mas que una. :D

muchas gracias,

Al González 24-05-2011 23:19:52

De nada, para eso estamos entre colegas.

Suerte con los militares (ahora entiendo por qué lo del algoritmo de cifrado confiable). ;)

erickperez6 25-05-2011 00:30:47

no se te escapa una :D:D:D:D:D:D:D:D:D


La franja horaria es GMT +2. Ahora son las 06:00:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi