TCurrencyEdit y TCustomEdit(). ???

[vtdeleon]

Saludos.

Tengo un procedimiento para limpiar todos los edit, incluyendo TCurrencyEdit de la Rx

Código Delphi [-]
...
    for n:= 0 to ComponentCount-1 do
      if Components[n] is TCustomEdit then
 TCustomEdit(Components[n]).Clear;

Esto funciona bien cuando es clear, pero cuando intente cambiar el Clear por Text (para otro asunto) no funciono en los componente CurrencyEdit

Código Delphi [-]
...
     for n:= 0 to ComponentCount-1 do
       if Components[n] is TCustomEdit then
         TCustomEdit(Components[n]).Text:='0';

Probe con

Código Delphi [-]
TCustomEdit(Components[n]).Text:='1';

en un Evento Click de un boton y no hizo cambios.
Lo contrario sucede con los componentes (similares) de JVCL
Que puede ser???
Tengo: D7, Rx7,XPSP2

[delphi.com.ar]

Supongo que el problema radica que SetText no es un método Virtual o Dynamic, es estático. Y la TCurrencyEdit define su propia propiedad Text y lo que te muestra es el valor de esta última.
Yo alguna vez hice algo similar, pero creo que terminé utilizando RTTI.

Saludos!

[JOSEPE]

Lo que ocurre es que TCustomEdit si posee en su definición el método Clear, pero no declara ninguna propiedad Text.
Salu2
JOSEPE

[yusnerqui]

Pues porque la propiedad de almacenamiento de datos de este componente no es text sino Values. Si no quieres utilizar el Clear creo que tendrás que:

Código Delphi [-]
for n:= 0 to ComponentCount-1 do
if Components[n] is TCustomEdit then
begin
TCustomEdit(Components[n]).Text := '0';
if Components[n] is TCurrencyEdit then
TCurrencyEdit(Components[n]).Value := 0;
end;

Saludos

[delphi.com.ar]

Empezado por JOSEPE

Lo que ocurre es que TCustomEdit si posee en su definición el método Clear, pero no declara ninguna propiedad Text.

La propiedad Text viene de TControl. Y la diferencia con Clear (de TCustomEdit) es que si es un método Virtual sorbreescrito en TCurrencyEdit!

[vtdeleon]

Ok
Hice algo parecido a lo comentado por yusnerqui
Gracias a todos por la aclaracion