Types Incompatibles

[Paulao]

Un amigo me lo dijo que puede ser que no ha hecho la implementacion de Interface IDocument en la classe TDocumentoNovo. Si es esto, como lo hago, o sea, implementar una Interface en una Classe en Delphi: En Java seria:
public class Nombre implements INombre....

Pero en Delphi no lo se.

[[maeyanes]]

Hola...

Código Delphi [-]
type
  TDocumentoNovo = class(TObject, IDocument)
    // ...
  private
    // Declaras métodos de la interfaz a implementar
  end;

Saludos...

[[Chris]]

Primero que todo: Creo que estás mal interpretando la instrucción OVERLOAD. Overload no quiere decir que una rutina acepta cualquier tipo de dato. Overload significa que pueden haber un polimorfismo de una rutina.

Segundo: En la declaración de Validate indicas que esperas un dato de tipo TDocumentoNovo. Pero en la implementación indicas que es de IDocument. Sin embargo algo está faltando aquí, pues antes que todo el compilador te debería indicar que hay una diferencia entre la declaración e implementación de la unidad al ser distinto el tipo de dato de **Documento**.

Podrías empezar declarando otra forma de Validate, una que trabaje con IDocument, si es que aún no la tienes.

Saludos,
Chris

[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.