emanuel realmente o charcase facilito e muito, mas na verdade meu codigo nao estava errado eu apenas copiei errado, pois eu estava compilando certo, mas na hora ela nao limpava os dbedit.
eu copiei a ideia de uma dica pra limpa edit e so alterei pra dbedit. 2009/3/24 Emanuel Coutinho <emanuelcouti...@yahoo.com.br> > 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 > <holiveira.wordpr...@gmail.com<holiveira.wordpress%40gmail.com> > > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > 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] > > > -- Felipe Govoni --------------------- GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]