Muito Obrigado Alison
Montei assim:
For_titulos.informeEtiquetas.Text:=copy(For_Titulos.titulo.Text,1,3);
É na probriedade CharCase do dbedit eu coloquei
ecUpperCase
Eu queria postar isso ontem só que fiquei sem net...
Edit2.Text := UpperCase(Copy(Edit1.Text,1,3));
--- Em delphi-br@yahoogrupos.com.br, "Alison Zen" <[EMAIL PROTECTED]>
escreveu
>
> CAMPORECEBE.TEXT
> := uppercase(copy('CAMPO',POSICAOINICIAL,QUANTIDADEDEPOSICOES));
>
> Legenda:
> CAMPORECEBE = Campo que vai receber o texto.
> CAMPO = Campo que será cortado e alterado seu valor
para
> maiúsculo.
> UPPERCASE = Função que retorna o valor de uma string em
caixa alta
> (maiúsculo)
> Copy = Função que recorta uma string, passando
uma
> posição inicial(onde sera iniciado o corte) e a quantidade de
posições que
> serão cortadas.
>
> Tomara que eu tenha ajudado
>
> Abraços.
>
>
>
>
>
> Em 16/06/08, Alexsandro <[EMAIL PROTECTED]> escreveu:
> >
> > Boa tarde Pessoal,
> > Como eu pego as 3 primeiras letras de um nome e envio para outro
campo
> > em maiúsculo.
> >
> > Obrigado pela atenção
> >
> > Alexsandro Queiroz da Silva
> >
> >
> >
>
>
>
> --
> Atenciosamente
> Alison Zen
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
