[delphi-br] maiuscula em todos os dedits

Tue, 24 Mar 2009 08:06:32 -0700 

bom dia

algume sabe me dize oq tem de errado nesse codigo:


  for j := 0 to frmFinasa.ComponentCount - 1 do
   if (frmFinasa.Components[j] is tdbEdit) then
     (frmFinasa.Components[j] as tdbEdit).Text :=
UpperCase((frmFinasa.Components[j] as TdbEdit).Text);




ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem:
"expression illegal in evaluator"


tentei faze um teste com o seguinte codigo e tambem nao fez nada

  for j := 0 to frmFinasa.ComponentCount - 1 do
   if (frmFinasa.Components[j] is tdbEdit) then
     (frmFinasa.Components[j] as tdbEdit).Text := 'teste';



alguem pode me ajuda?

obrigado

-- 
Felipe Govoni
---------------------
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[As partes desta mensagem que não continham texto foram removidas]

Responder a