Types Incompatibles

[Paulao]

Bueno, este procedimento estas en una Unit llamada de: clsLisValidator y la procedure Validator es esta:
procedure Validate(Documento: IDocument)
y su implementacion es la que puzo en primer post. Ahora hay una Interface la Pocedure Validator estas declarada asi:
procedure Validate(Documento: TDocumentoNovo);overload;
Ahora, tengo percebido que puede estar en un componente, pues tengo uno aca llamado INTERFACE.

[Paulao]

La interface IDocument

type
  IDocument = interface(IInterfaceBase)
    ['{D48CBFA8-3292-44A2-89DD-BD7BA5823F6C}']
    function GetComplemento: String;
    function GetDataFinal: TDate;
    function GetDataInicial: TDate;
    function GetDescricao: String;
    function GetSequencialFinal: Integer;
    function GetSequencialInicial: Integer;
    function getQuantidadeDigitacao: Integer;
    procedure SetCod_Caixa(Value: Integer);
    procedure SetCod_Documento(Value: Integer);
    procedure SetCod_Usuario(Value: Integer);
    procedure SetComplemento(const Value: String);
    procedure SetDataFinal(Value: TDate);
    procedure SetDataInicial(Value: TDate);
    procedure SetData_Digitacao(Value: TDate);
    procedure SetDescricao(const Value: String);
    procedure SetPrevisaoExpurgo(Value: TDate);
    procedure SetSequencialFinal(Value: Integer);
    procedure SetSequencialInicial(Value: Integer);
    procedure SetCodTipoDocumento(Value: Integer);
    function GetCodTipoDocumento: Integer;
    function GetCodDocumento: Integer;
    procedure SetCodDocumento(Value: Integer);
    function  GetHasAutoComplete: Boolean;
    procedure SetHasAutoComplete(Value: Boolean);
    function GetCliente: ICliente;
    function GetDepartamento: IDepartamento;
    function GetLocal: ILocal;
    procedure SetCaixa(const Value: ICaixa);
    function GetCaixa: ICaixa;
    procedure SetAuditoria_Interna(const Value: String);
    function GetAnomalias: IListBase;
    procedure SetAnomalias(Value: IListBase);
    function GetStatus: String;
    procedure SetStatus(const Value: String);
    function getValorIndices(): IListBase;
    function getTipoDocumento: ITipoDocumento;
    procedure setTipoDocumento(const value: ITipoDocumento);
    procedure SetCod_Status(const Value: Integer);
    function GetCod_Status: Integer;
    function GetAuditoria_Interna: String;
    function GetCod_Caixa: Integer;
    function GetCod_Etiqueta: Integer;
    function GetCod_Usuario: Integer;
    function GetData_Digitacao: TDate;
    function GetPrevisaoExpurgo: TDate;
    procedure SetCod_Etiqueta(const Value: Integer);
    function GetCod_xSolicitante: Integer;
    procedure SetCod_xSolicitante(Value: Integer);

    property Cliente: ICliente read GetCliente;
    property Local: ILocal read GetLocal;
    property Departamento: IDepartamento read GetDepartamento;
    property TipoDocumento: ITipoDocumento read GetTipoDocumento write SetTipoDocumento;
    property Caixa: ICaixa read GetCaixa write SetCaixa;
    property Cod_Caixa: Integer read GetCod_Caixa write SetCod_Caixa;
    property CodDocumento: Integer read GetCodDocumento write SetCod_Documento;
    property Cod_Etiqueta: Integer read GetCod_Etiqueta write SetCod_Etiqueta;
    property Cod_Usuario: Integer read GetCod_Usuario write SetCod_Usuario;
    property Complemento: String read GetComplemento write SetComplemento;
    property DataFinal: TDate read GetDataFinal write SetDataFinal;
    property DataInicial: TDate read GetDataInicial write SetDataInicial;
    property Data_Digitacao: TDate read GetData_Digitacao write SetData_Digitacao;
    property Descricao: String read GetDescricao write SetDescricao;
    property PrevisaoExpurgo: TDate read GetPrevisaoExpurgo write
        SetPrevisaoExpurgo;
    property SequencialFinal: Integer read GetSequencialFinal write
        SetSequencialFinal;
    property SequencialInicial: Integer read GetSequencialInicial write
        SetSequencialInicial;
    property CodTipoDocumento: Integer read GetCodTipoDocumento write SetCodTipoDocumento;
    property HasAutoComplete: Boolean read GetHasAutoComplete write SetHasAutoComplete;
    property Auditoria_Interna: String read GetAuditoria_Interna write SetAuditoria_Interna;
    property Anomalias: IListBase read GetAnomalias write SetAnomalias;
    property Status: String read GetStatus write SetStatus;
    property ValorIndices: IListBase read GetValorIndices;
    property Cod_Status: Integer read GetCod_Status write SetCod_Status;
    property QuantidadeDigitacao: Integer read GetQuantidadeDigitacao;
    property Cod_xSolicitante: Integer read GetCod_xSolicitante write SetCod_xSolicitante;
  end;
implementation
end.

La Unit que me lo da el error

ype
  TListValidator = class(TObject)
  private
    FListValidator: TListPlugins;
    FOnAfterValidate: TNotifyValidate;
    FOnBeforeValidate: TNotifyValidate;
    FOnErrorValidate: TOnErrorValidate;
    function GetItems(Index: integer): IValidator;
    procedure SetItems(Index: integer; const Value: IValidator);
    procedure SetOnBeforeValidate(EventHandle: TNotifyValidate);
    procedure SetonAfterValidate(EventHandle: TNotifyValidate);
    procedure SetOnErrorValidate(EventHandle: TOnErrorValidate);

  public
    constructor Create;
    destructor Destroy; override;
    function Add(Validator: IValidator): Integer;
    function Count: Integer;
    procedure Delete(Index: integer); overload;
    procedure Delete(GUID: string); overload;
    procedure Clear;
    procedure Validate(Documento: IDocument);
    property Items[Index: integer]: IValidator read GetItems write SetItems;
        default;
    property OnErrorValidate: TOnErrorValidate read FOnErrorValidate write SetOnErrorValidate;
    property OnBeforeValidate: TNotifyValidate read FOnBeforeValidate write SetOnBeforeValidate;
    property OnAfterValidate:  TNotifyValidate read FOnAfterValidate write SetOnAfterValidate;

  end;

implementation

uses
  SysUtils, Exceptions;

{ TListValidator }

constructor TListValidator.Create;
begin
  FListValidator := TListPlugins.Create;
end;
destructor TListValidator.Destroy;
begin
  FreeAndNil(FListValidator);
  inherited;
end;
function TListValidator.Add(Validator: IValidator): Integer;
begin

  Result := FListValidator.Add(Validator);
  // Se houverem eventos de validações associados, associa a cada elemento inserido
  if Assigned(Self.OnBeforeValidate) then
    Validator.OnBeforeValidate := Self.OnBeforeValidate;

  if Assigned(Self.OnAfterValidate) then
    Validator.OnAfterValidate  := Self.OnAfterValidate;

  if Assigned(Self.OnErrorValidate) then
    Validator.OnErrorValidate  := Self.OnErrorValidate;
end;
function TListValidator.Count: Integer;
begin
  Result := FListValidator.Count();
end;
procedure TListValidator.Delete(Index: integer);
begin
  FListValidator.Delete(Index);
end;
procedure TListValidator.Delete(GUID: string);
begin
  FListValidator.Delete(GUID);
end;
function TListValidator.GetItems(Index: integer): IValidator;
begin
  Result := IValidator(FListValidator[Index]);
end;
procedure TListValidator.SetItems(Index: integer; const Value: IValidator);
begin
  FListValidator[Index] := Value;
end;
procedure TListValidator.Validate(Documento: IDocument);
var
  IntNum: integer;
begin
  for intNum := 0 to Self.Count - 1 do
  begin
    try
      Self[intNum].Validate(Documento);//Aca estas el error
    except
      On E:EPluginException do
        Raise EPluginException.Create(E.ErrorCode, E.Message);

      On E:Exception do
        Raise Exception.Create(E.Message);
    end; // Try..Except
  end; // For  
end;
procedure TListValidator.Clear;
begin
  FListValidator.Clear;
end;
procedure TListValidator.SetOnAfterValidate(EventHandle: TNotifyValidate);
var
  intNum: integer;
begin
  FOnAfterValidate := EventHandle;
  for intNum := 0 to Self.FListValidator.Count - 1 do
    IValidator(Self.FListValidator[intNum]).OnAfterValidate := FOnAfterValidate;  
end;
procedure TListValidator.SetOnBeforeValidate(
  EventHandle: TNotifyValidate);
var
  IntNum: integer;
begin
  FOnBeforeValidate := EventHandle;
  // Seta o evento de validação para todos os elementos da lista
  for intNum := 0 to Self.FListValidator.Count - 1 do
    IValidator(Self.FListValidator[intNum]).OnBeforeValidate := EventHandle;
end;
procedure TListValidator.SetOnErrorValidate(EventHandle: TOnErrorValidate);
var
  intNum: integer;
begin
  FOnErrorValidate := EventHandle;
  for intNum := 0 to Self.FListValidator.Count - 1 do
    IValidator(Self.FListValidator[intNum]).OnErrorValidate := FOnErrorValidate;
end;
end.

[Paulao]

A Unit com a Interface IValidator

interface
uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  clsDocumento, IPluginUnit;
type
  TOnErrorValidate  = procedure (FieldName: String) of object;
  TNotifyValidate   = procedure (Documento: TDocumentoNovo) of object;

  IValidator = interface(IPlugin)
    ['{A9688CA1-4117-42D7-A790-60B950B2D264}']
    function GetOnAfterValidate:   TNotifyValidate;
    function GetOnBeforeValidate: TNotifyValidate;
    function GetOnErrorValidate: TOnErrorValidate;
    procedure SetOnBeforeValidate(const Value: TNotifyValidate);
    procedure SetOnAfterValidate(const Value: TNotifyValidate);
    procedure SetOnErrorValidate(const Value: TOnErrorValidate);
    procedure Validate(Documento: TDocumentoNovo);{overload;
    procedure Validate(Documento: IDocument);overload;//Criado por Paulo }
    property OnAfterValidate: TNotifyValidate read GetOnAfterValidate write
        SetOnBeforeValidate;
    property OnBeforeValidate: TNotifyValidate read GetOnBeforeValidate write
        SetOnBeforeValidate;
    property OnErrorValidate: TOnErrorValidate read GetOnErrorValidate write
        SetOnErrorValidate;
  end;
  IteratorValidator = interface
    ['{33D0C0ED-91A4-468E-AF5B-A7E5B5C5DAC7}']
    procedure First();
    procedure Next();
    function IsDone(): Boolean;
    function CurrentItem: IValidator;
  end;
  IListValidator = interface
    ['{8F2F5645-3BC1-427D-89AC-A39C370AD957}']
    function  CreateIterator(): IteratorValidator;
    procedure Add(Validator: IValidator);
    procedure Delete(Index: Integer);
    function  Item(Index: integer): IValidator;
    function  Count(): integer;
  end;
implementation
end.

A Unit onde está a classe TDocumentoNovo

type
  TDocumentoNovo = class(TClassBase, IDocument)
  private
    FCod_Caixa: Integer;
    FCodDocumento: Integer;
    FCod_Etiqueta: Integer;
    FCod_Usuario: Integer;
    FComplemento: String;
    FDataFinal: TDate;
    FDataInicial: TDate;
    FData_Digitacao: TDate;
    FDescricao: String;
    FPrevisaoExpurgo: TDate;
    FSequencialFinal: Integer;
    FSequencialInicial: Integer;
    FDestroyTipoDocumento: Boolean;
    FTipoDocumento: TTipoDocumento;
    FDestroyCaixa: Boolean;
    FCaixa: TCaixa;
    FCodTipoDocumento: Integer;
    FHasAutoComplete: Boolean;
    FAuditoria_Interna: String;
    FAnomalias: TListBase;
    FListValor: TListBase;
    FStatus: String;
    FCod_Status: Integer;
    FCod_xSolicitante: Integer;
    FCarga: TCarga;
    //Preferimos usar o Cod_Auditoria ao inves da Classe FAuditoria por quetão de tempo devido a urgencia de entrega
    // que se se faz presente nesta data
    //FAuditoria:TAuditoria;
    //FDestroyAuditoria: Boolean;
    FCod_Auditoria : integer;
    FHashRegistro: String;
    function GetCliente(): TCliente;
    function GetLocal(): TLocal;
    function GetDepartamento(): TDepartamento;
    function GetComplemento: String;
    function GetDataFinal: TDate;
    function GetDataInicial: TDate;
    function GetDescricao: String;
    function GetSequencialFinal: Integer;
    function GetSequencialInicial: Integer;
    function getQuantidadeDigitacao: Integer;
    procedure SetCod_Caixa(Value: Integer);
    procedure SetCod_Documento(Value: Integer);
    procedure SetCod_Usuario(Value: Integer);
    procedure SetComplemento(const Value: String);
    procedure SetDataFinal(Value: TDate);
    procedure SetDataInicial(Value: TDate);
    procedure SetData_Digitacao(Value: TDate);
    procedure SetDescricao(const Value: String);
    procedure SetPrevisaoExpurgo(Value: TDate);
    procedure SetSequencialFinal(Value: Integer);
    procedure SetSequencialInicial(Value: Integer);
    //procedure SetCodTipoDocumento(Value: Integer);
    function GetCodTipoDocumento: Integer;
    function GetCodDocumento: Integer;
    procedure SetCodDocumento(Value: Integer);
    function  GetHasAutoComplete: Boolean;
    procedure SetHasAutoComplete(Value: Boolean);
    procedure SetCaixa(const Value: TCaixa);
    function GetCaixa: TCaixa;
    procedure SetAuditoria_Interna(const Value: String);
    function GetAnomalias: TListBase;
    procedure SetAnomalias(Value: TListBase);
    function GetStatus: String;
    procedure SetStatus(const Value: String);
    function getValorIndices(): TListBase;
    function getTipoDocumento: TTipoDocumento;
    procedure setTipoDocumento(const value: TTipoDocumento);
    procedure SetCod_Status(const Value: Integer);
    function GetCod_Status: Integer;
    function GetAuditoria_Interna: String;
    function GetCod_Caixa: Integer;
    function GetCod_Etiqueta: Integer;
    function GetCod_Usuario: Integer;
    function GetData_Digitacao: TDate;
    procedure SetCod_Etiqueta(const Value: Integer);
    function GetCod_xSolicitante: Integer;
    procedure SetCod_xSolicitante(Value: Integer);
    function GetPrevisaoExpurgo: TDate;
    function GetCarga: TCarga;
    //function GetAuditoria: TAuditoria;
    //procedure SetAuditoria(const Value: TAuditoria);
    function GetCod_Auditoria: integer;
    procedure SetCod_Auditoria(const Value: integer);
    function getHashRegistro: String;
    procedure setHashRegistro(const Value: String);
    function QuantidadeDigitacaoCustomizavel: Integer;
  public
    constructor Create; override;
    destructor Destroy; override;
    procedure PopularValorIndice();
    //Colocados aqui para nao serem lidas em tempo de execucao usando o metodo AssignPropertys
    //pois causa Access Violation.
    property Carga: TCarga read GetCarga;
    property Cliente: TCliente read GetCliente;
    property Local:   TLocal read GetLocal;
    property Departamento: TDepartamento read GetDepartamento;
    property QuantidadeDigitacao: Integer read GetQuantidadeDigitacao;
    property CodTipoDocumento: Integer read GetCodTipoDocumento;
  published
    property TipoDocumento: TTipoDocumento read GetTipoDocumento write SetTipoDocumento;
    property Caixa: TCaixa read GetCaixa write SetCaixa;
    property Cod_Caixa: Integer read GetCod_Caixa write SetCod_Caixa;
    property CodDocumento: Integer read GetCodDocumento write SetCod_Documento;
    property Cod_Etiqueta: Integer read GetCod_Etiqueta write SetCod_Etiqueta;
    property Cod_Usuario: Integer read GetCod_Usuario write SetCod_Usuario;
    property Complemento: String read GetComplemento write SetComplemento;
    property DataFinal: TDate read GetDataFinal write SetDataFinal;
    property DataInicial: TDate read GetDataInicial write SetDataInicial;
    property Data_Digitacao: TDate read GetData_Digitacao write SetData_Digitacao;
    property Descricao: String read GetDescricao write SetDescricao;
    property PrevisaoExpurgo: TDate read GetPrevisaoExpurgo write
        SetPrevisaoExpurgo;
    property SequencialFinal: Integer read GetSequencialFinal write
        SetSequencialFinal;
    property SequencialInicial: Integer read GetSequencialInicial write
        SetSequencialInicial;
    property HasAutoComplete: Boolean read GetHasAutoComplete write SetHasAutoComplete;
    property Auditoria_Interna: String read GetAuditoria_Interna write SetAuditoria_Interna;
    property Anomalias: TListBase read GetAnomalias write SetAnomalias;
    property Status: String read GetStatus write SetStatus;
    property ValorIndices: TListBase read GetValorIndices;
    property Cod_Status: Integer read GetCod_Status write SetCod_Status;
    property Cod_xSolicitante: Integer read GetCod_xSolicitante write SetCod_xSolicitante;
    //Preferimos usar o Cod_Auditoria ao inves da Classe FAuditoria por quetão de tempo devido a urgencia de entrega
    // que se se faz presente nesta data
    property Cod_Auditoria : integer read GetCod_Auditoria write SetCod_Auditoria;
    property HashRegistro: String read getHashRegistro write setHashRegistro;
  end;

[[maeyanes]]

Hola...

Paulao, usa la etiqueta [delphi] en lugar de [code] cuando publiques código fuente en Delphi.

Según leo en el código, tienes comentada la declaración del procedimiento Validate(Documento: IDocument);. ¿Así estás tratando de compilar tú código? Por que si es así, es por eso que obtienes el error.



Saludos...

[Paulao]

No, no estas. Yo hizo esto para un teste aca y si quedo quando hizo una copia para postar aca, pero todo estas cierto, nada comentado.