Moura,
Escrevi abaixo um fragmento de código que deve resolver o teu problema
function Capitaliza(source:string) : String;
var
sPedaco : String;
begin
Result:='';
while source<>'' do
begin
if Pos(' ',source)>0 then
begin
sPedaco := Copy(source,1, Pos(' ',source)-1);
Result:=Result+AnsiUpperCase(Copy(sPedaco,1,1)+Copy(sPedaco,2,Length(sPedaco))+'
';
source:=Copy(Source,1,source,1, Pos(' ',source)+1);
end
else
Begin
Result:=Result+AnsiUpperCase(Copy(source,1,1)+Copy(source,2,Length(source));
source:='';
end;
end;
ex.:
...
.......
While not TTable1.eof do
Begin
Table1.Edit;
Table1.FeldByName('NOME').AsString:=Capitaliza(Table1.FIeldByName('NOME').AsString);
Table1.post;
TTable1.Next;
end;
Não testei no Delphi mas acho que deve resolver..
[ ]´s
Moacir
jmourajr2000 escreveu:
>Caros amigos, boa tarde!
>
>Tenho a seguinte situação:
>
>Um cliente, tem em suas tabelas campos do tipo string, sendo por
>exemplo: no cadastro de clientes o campo Nome/Razão Social todos os
>registros estão e ou foram cadastrados como UpperCase(maiusculas),
>devido ao aplicativo fornecido pelo profissional que os ajudava, não
>permitir digitar com padrao normal.
>
>No momento estou implementando uma ferramenta desenvolvida por mim e
>quero aproveitar as informações contidas nas tabelas(Paradox), só que
>o cliente necessita que eu converta estas informações de maisculas
>para minusculas, até ai consigo fazer numa boa.
>Sendo:
> O nome cadastrado: JOSE JOAO SILVA(todos carac.em maisculo)
> consigo deixar assim: Jose joao silva(1° caracter maisculo)
>Mas ele quer que fique assim: Jose Joao Silva(Cada nome começando com
>maisculas).
>
>Estou quebrando a cabeça e não estou tendo resultados, será que tem
>como fazer isso?
>
>Quem puder ajudar agradeço muito.
>
>Abraços a todos.
>
>José de Moura
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
