Fórum Como converter o string #319599
20/04/2006
0
JOSÉ RICARDO DA SILVA FERNANDES
para
José Ricardo da Silva Fernandes
Zlink
Curtir tópico
+ 0Posts
20/04/2006
Rafael Gomes
porem todos os caracteres ficarao minusculo, ai vc poderia consertar criando uma rotina que pegasse a primeira letra de cada palavra e tranformasse em maiusculo ...
[..]s
Gostei + 0
20/04/2006
Martins
veja se o código abaixo lhe ajuda.
function TForm1.FormataNome(sNome: String): string;
const
excecao: array[0..5] of string = (´ da ´, ´ de ´, ´ do ´, ´ das ´, ´ dos ´, ´ e ´);
var
tamanho, j: integer;
i: byte;
begin
Result := AnsiLowerCase(sNome);
tamanho := Length(Result);
for j := 1 to tamanho do
// Se é a primeira letra ou se o caracter anterior é um espaço
if (j = 1) or ((j>1) and (Result[j-1]=Chr(32))) then
Result[j] := AnsiUpperCase(Result[j])[1];
for i := 0 to Length(excecao) do
Result := StringReplace(Result,excecao[i],excecao[i],[rfReplaceAll, rfIgnoreCase]);
end;Gostei + 0
20/04/2006
Zlink
Show de bola. valeu pela função.
Era exatamente o que eu queria.
Valeu.
Gostei + 0
28/07/2008
Vagner.oliveira
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)