Tema: Interfaces
Ver Mensaje Individual
  #12  
Antiguo 14-11-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Permíteme poner otro ejemplo con controles más estandard para ver si estoy entendiendo.

Vamos a suponer que deseo procesar datos ya sea de un ListView o de un StringGrid por igual. Dado que desde un punto de vista lógico ambos no son otra cosa que una matriz podría definir:

Código:
IMatriz = interface
  function Celdas(Ren, Col: Integer): String;
end;
y luego crear descendientes de ListView e StringGrid que implementen esta interfaz:

Código:
TrmListView = class(TListView, IMatriz)
  function Celdas(Ren, Col: Integer): String;
end;

TrmStringGrid = class(TStringGrid, IMatriz)
  function Celdas(Ren, Col: Integer): String;
end;
de manera que a quién procese la información le puedo simplemente dar la interfaz según sea el caso.

De ser así, sí, sí me convences.

// Saludos
Responder Con Cita