É verdade, existe um espaço na palavra "Components"... Mas na minha opinião, seria melhor o CharCase como o Rodnei explicou acima.
2009/3/24 Emanuel Coutinho <[email protected]> > 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] <govoni.felipe%40gmail.com>> > Para: [email protected] <delphi-br%40yahoogrupos.com.br> > 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] > > > [As partes desta mensagem que não continham texto foram removidas]
