25 replies to this topic

[enecumene]

Estoy en la fase de creación del partido, o sea, guardar la info del partido disputado al servidor, en el formulario intervienen tres combos, Modalidad, Ganador y Perdedor, en modalidad se listan todos los tipos de juego (Bola 8, Bola 9, Etc) y en los combos Ganador y Perdedor todos los jugadores de la liga, intento obtener las modalidades y listarlo al combo e hice lo siguiente:

delphi

TModalidadRec = record
      ModalId: Integer;
      Nombre: String;
      Bola: String;
      ACarambola: Integer;
      ATpa: Integer;
    end;
 
    IModalidades = interface
      ['{BE7BE15A-CADA-4915-BDFE-168A620B3CC7}']
      function ListarModalidades: TList<TModalidadRec>;
    end;
 
    TModalidad = class(TInterfacedObject, IModalidades)
      function ListarModalidades: TList<TModalidadRec>;
    end;

Y luego quería que la clase TPartido heredara la función ListarModalidades, hice esto:

delphi

TPartido = class(TInterfacedObject,IPartidos,IModalidades)
      function ListarUltimosPartidos(const ARows: String): TList<TPartidoRec>;
      function Guardar(const APartido: TPartidoRec; isNew: Boolean): Boolean;
      function ListarModalidades: TList<TModalidadRec>;
    end;

Pero me marca error:

 

[dcc32 Error] gameClasses.pas(60): E2065 Unsatisfied forward or external declaration: 'TPartido.ListarModalidades'

 

 

¿Qué estoy haciendo mal?.

[Agustin Ortu]

[dcc32 Error] gameClasses.pas(60): E2065 Unsatisfied forward or external declaration: 'TPartido.ListarModalidades'

 

 

Pues simple, quiere decir que no implementaste la funcion que te marca 

 

Ahora, porque necesitas que tu clase TPartidos implemente esa funcion? No sera que la clase TPartidos, internamente, necesite hacer uso de esa funcion? En ese caso, considera hacer lo siguiente:

delphi

type
  TPartido = class(TInterfacedObject, IPartidos)
  private
    FModalidades: IModalidades;
 
    //  IPartidos 
    function ListarUltimosPartidos(const ARows: String): TList<TPartidoRec>;
    function Guardar(const APartido: TPartidoRec; isNew: Boolean): Boolean;
  protected
    property Modalidades: IModalidades read FModalidades;
  public
    constructor Create(const Modalidades: IModalidades);
  end;
 
constructor TPartido.Create(const Modalidades: IModalidades);
begin
  if not Assigned(Modalidades) then
    raise Exception.Create('Modalidades es nil');
  inherited Create;
  FModalidades := Modalidades;
end;
 
// en el resto de los metodos de TPartidos podes usar la propiedad Modalidades que tiene el metodo
// ListarModalidades

[enecumene]

Bien, estoy un poco confundido con el constructor, ¿de todos modos deberé instanciar una Variable TModalidad para pasarlo como parámetro en el create?.

[Agustin Ortu]

Bien, estoy un poco confundido con el constructor, ¿de todos modos deberé instanciar una Variable TModalidad para pasarlo como parámetro en el create?.

 

Si exacto. Aunque lo que yo no entiendo exactamente es que es lo que haces con las modalidades. Ten en cuenta que si bien esta permitido, no es buena idea tener una clase que implemente varias interfaces.. simplemente porque la clase se hace mas compleja y es mucho mas facil manejar las cosas si tenes clases dedicadas

[enecumene]

Pues, a partir de ahora llamo cada una por separado.

[enecumene]

Hola a todos!, éste tema aún no se ha terminado, sólo que uno de mis proyectos me está quitando mucho tiempo, sólo aprovecho que el uso de TList<t> y records me ha salvado un montón y a la vez me ha ahorrado bastante dolores de cabezas, recientemente tuve problemas con un formulario de entrada de inventario y salida utilizando tablas de memorias (TClientDataSet) y últimamente me lanzaba errores difícil de ubicar, me cansé de ello y opté por usar una lista con records y ListView con estilo vsReport, hostia!, por qué no se me ocurrió antes?, ya en la marcha iré cambiando todo por ese método, Gracias Agustín!!!.