La Cara Oculta de Delphi 6

Acceso a campos 387
Inspirado en la película de romanos que pasaron ayer por la tele, he desarrollado un
pequeño ejemplo que muestra el código del cliente en números romanos:
procedure TForm1.tbClientesCustNoGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
const
Unidades: array [0..9] of string =
('', 'I', 'II', 'III', 'IV", 'V', 'VI', 'VII', 'VIII', 'IX');
Decenas: array [0..9] of string =
('', 'X', 'XX', 'XXX', 'XL', 'L', 'LX', 'LXX', 'LXXX', 'XC');
Centenas: array [0..9] of string =
(', 'C', 'CC', 'CCC', 'CD', 'D', 'DC', 'DCC', 'DCCC', 'CM');
Miles: array [0..3] of string =
('', 'M', 'MM', 'MMM');
begin
if Sender.AsInteger > 3999 then
Text := 'Infinitum'
// Hay que ser consecuentes con el lenguaje
else
begin
I := Sender.AsInteger;
Text := Miles[I div 1000] + Centenas[I div 100 mod 10] +
Decenas[I div 10 mod 10] + Unidades[I mod 10];
end;
end;
NOTA IMPORTANTE
Más adelante presentaré los campos calculados de la VCL. Muchos programadores
los utilizan para resolver problemas de visualización o incluso entrada de datos, aunque
los campos calculados no permiten modificaciones. En la mayoría de los casos,
sin embargo, el problema puede resolverse más fácilmente utilizando OnGetText y
OnSetText. En particular, si alguien le pregunta cómo teclear un valor para un “campo
calculado”, sospeche inmediatamente que es un problema soluble con estos eventos.
Si a algún usuario se le ocurriese la peregrina idea de teclear sus datos numéricos
como números romanos, el evento adecuado para programar esto sería OnSetText. El
prototipo del evento es el siguiente:
type
TFieldSetTextEvent = procedure (Sender: TField;
const Text: string) of object;
Este evento es utilizado con frecuencia para realizar cambios sobre el texto tecleado
por el usuario para un campo, antes de ser asignado al mismo. Por ejemplo, un
campo de tipo cadena puede convertir la primera letra de cada palabra a mayúsculas,
como sucede en el caso de los nombres propios. Un campo de tipo numérico puede
eliminar los separadores de millares que un usuario puede colocar para ayudarse en la
edición. Como este evento se define para el campo, es independiente de la forma en
que se visualice dicho campo y, como veremos al estudiar los módulos de datos,
formará parte de las reglas de empresa de nuestro diseño.
Para ilustrar el uso del evento OnSetText, aquí está el manejador que lleva a mayúsculas
la primera letra de cada palabra de un nombre: