Função que deixa as iniciais de uma String em maiúsculas!

[J. L. Gregorio 0]

Galera a função é a seguinte:

 

function PMAIUSCULA(texto: string): String;

var tam,i:integer;

aux,s:string;

c:char;

begin

texto:=AnsiLowerCase(texto);

aux:='';

for i:=1 to length(texto) do

begin

if i=1 then

begin

aux:=Copy(AnsiUpperCase(texto),i,1);

aux:=aux+texto[i+1];

end

else

if texto = ' ' then

aux:=aux+Copy(AnsiUpperCase(texto[i+1]),1,1)

else

aux:=aux+texto[i+1]

end;

 

//texto:='';

i:= 2;

tam:= length(aux);

while i <= length(aux) do

begin

S:= '';

s:= copy(aux,i,3);

if (s = 'Do ') or (s = 'Da ') or (s = 'De ') then

begin

s:= Copy(LowerCase(aux),i,1);

aux:= Copy(aux,1,i-1)+S+Copy(aux,i+1,(tam-i));

end

else

if (s = 'Dos') or (s = 'Das') then

begin

s:= Copy(LowerCase(aux),i,1);

aux:= Copy(aux,1,i-1)+S+Copy(aux,i+1,(tam-i));

end;

 

i:=i+1;

end;

Result:=AUX;

end;

 

Ficou prontinha... converte nomes próprios, nomes de cidades, etc..... alguma sugesão, avisem-me!!!!

 

Abraços a toda a comunidade....!

[marcio.theis 3]

Movido...

Programação > Delphi http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Programação > Delphi > Laboratório de scripts (Delphi)