frmFinasa.Componen ts[j] <<-- Tem um espaço em branco no components[j] Retire-o
for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; Sds, _________________________ Emanuel Coutinho Salvador-Ba-Brasil ________________________________ De: felipe govoni <[email protected]> Para: [email protected] Enviadas: Terça-feira, 24 de Março de 2009 11:17:32 Assunto: [delphi-br] maiuscula em todos os dedits bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.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.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[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] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
