Classhelper en Delphi

[dario61081]

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.