Segue uma funçaozinha que eu criei.
Att,
Leandro
function PrimeiraMaiuscula(pTexto: String): String;
var
zPos : Smallint;
zPalavra : String;
begin
Result := '';
if Trim(pTexto) = '' then
exit;
pTexto := Trim(pTexto);
While length(ptexto) > 0 do
begin
zPos := Pos (' ', pTexto);
if zPos <= 0 then
zPos := Length(pTexto);
zPalavra := Copy(pTexto,1,zPos);
zPalavra := AnsiLowerCase(zPalavra);
//Coloca primeira maiuscula
if (Trim(zPalavra) <> 'de') and
(Trim(zPalavra) <> 'do') and
(Trim(zPalavra) <> 'da') and
(Trim(zPalavra) <> 'dos') and
(Trim(zPalavra) <> 'das') and
(Trim(zPalavra) <> 'a') and
(Trim(zPalavra) <> 'e') and
(Trim(zPalavra) <> 'o') and
(Trim(zPalavra) <> 'as') and
(Trim(zPalavra) <> 'os') and
(Trim(zPalavra) <> 'para') and
(Trim(zPalavra) <> 'pra') and
(Trim(zPalavra) <> 'em') and
(Trim(zPalavra) <> 'pra') then
zPalavra := AnsiUpperCase(zPalavra[1]) +
Copy(zPalavra,2,Length(zPalavra));
Result := Result + zPalavra;
Delete(pTexto,1,zPos);
end; //word
end;
----- Original Message -----
From: "jmourajr2000" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, March 11, 2005 5:16 PM
Subject: [delphi-br] Letras maisculas e minusculas
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
--
<<<<< 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
--
<<<<< 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
