Concordo contigo, mas o código dele está quase pronto, e não sei quantos componentes ele terá de fazer mudar na mão grande... assim, automatizando é mais rápido para resolver... então dei foco a ajudar o erro do código... No meu caso, quando formato minhas telas, sempre uso as propriedades tipo CharCase, quando necessito disso, mas como ele não tinah feito... Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo estando em um pagecontrol... caramba... muito trabalho... mas se apagar o errinho no código... voilá... dois palitos!!!
Sds, _________________________ Emanuel Coutinho Salvador-Ba-Brasil ________________________________ De: Humberto Oliveira <[email protected]> Para: [email protected] Enviadas: Terça-feira, 24 de Março de 2009 12:55:52 Assunto: Re: [delphi-br] maiuscula em todos os dedits É 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 <emanuelcoutinho@ yahoo.com. br> > 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 <govoni.felipe@ gmail.com <govoni.felipe% 40gmail.com> > > Para: delphi...@yahoogrup os.com.br <delphi-br%40yahoog rupos.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.maisbusca dos.yahoo. com > > [As partes desta mensagem que não continham texto foram removidas] > > > [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]
