Buenas colegas, como están??
. Estuve viendo algunas novedades que trae las nuevas versiones del delphi. En esta oportunidad con los Classhelper. Esta herramienta permite dar mas funcionalidad a las clases ya existentes. como usuario de java, me fascino como lo podía implementar ciertas funciones como lo hace java. aqui un ejemplo.
Código Delphi
[-]type
TEditHelper = class helper for tedit
public
function toUpper: string;
function toLower: string;
function to_i: integer;
function to_f: extended;
function toEqual(value: string): boolean;
function find(value: string): boolean;
end;
Con esto, a un tedit le "añado" algunas funciones que me sirven de maravillas facilitando no tenes que escribir mas codigo
, y asi utilizarlo como:
Código Delphi
[-]
edit2.Text:= edit1.toUpper;
edit3.Text := edit1.toLower;
CheckBox1.Checked := edit1.find('hola');
CheckBox2.Checked := edit1.toEqual('hola');
Como ven, resulta. Ayuda mucho y salvas mucho tiempo y codigo.
Adjunto un ejemplillo hecho en Delphi XE2.
saludos cordiales.