Ok Andrés, aquí te va un pequeño relato
El señor Bor Land definió tres clases:
Código:
TGrid = class
private
FRowHeight: Integer;
protected
RowHeight: Integer read FRowHeight write FRowHeight;
public
constructor Create; // Establece RowHeight a valor inicial
end;
TDbGrid = class(TGrid)
end;
TStringGrid = class(TGrid)
private
Font: TFont;
public
constructor Create; // crea Font
destructor Destroy; override; // libera Font;
// publica RowHeight (y la redefine)
property RowHeight: Integer read GetHeight write SetHeight;
TStringGrid debía redefinir RowHeight para cambiar el tamaño del font al cambiar la altura del renglón pero sin perder la funcionalidad anterior (no mucha en este caso pero es un cuento)
Código:
function TStringGrid.GetRowHeight: Integer;
begin
Result := inherited RowHeight;
end;
procedure TStringGrid.SetRowHeight(Value: Integer);
begin
inherited RowHeight := Value;
Font.Height := Value;
end;
Tiempo después llega un programador que necesita un DBGrid pero desafortunadamente la propiedad RowHeight está protegida. Entonces
lee la documentación y se
cerciora de que el ancestro TGrid tiene la propiedad y piensa: "debo derivar una clase de TDbGrid para desprotegerla". Pero también nota que otro descendiente de TGrid, TStringGrid, publica la propiedad y piensa: "¡Ah! ¡Más fácil! Mejor hago un "casting".
La documentación nada dice acerca de Font pues es una propiedad privada que no interesa al público en general.
Como DbGrid es una instancia de TDbGrid no posee el campo Font, así que ¿qué sucederá cuando nuestro protagonista escriba:
TStringGrid(DbGrid).RowHeight := 60;
?
¡¡Una violación de acceso!!
Y colorín colorado, este cuento se ha acabado
// Saludos