Como converter o string

Delphi

20/04/2006

Como conerter o string, exemplo:

JOSÉ RICARDO DA SILVA FERNANDES
para
José Ricardo da Silva Fernandes


Zlink

Zlink

Curtidas 0

Respostas

Rafael Gomes

Rafael Gomes

20/04/2006

vc pode utilizar o comando LowerCase(variavelstring)

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
Martins

Martins

20/04/2006

Como conerter o string, exemplo: JOSÉ RICARDO DA SILVA FERNANDES para José Ricardo da Silva Fernandes


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
Zlink

Zlink

20/04/2006

Martins

Show de bola. valeu pela função.
Era exatamente o que eu queria.
Valeu.


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

20/04/2006

como utiliza esta funcao ???


GOSTEI 0
POSTAR