function UpperNome(const Nome: String): String;
var
x : Integer;
lista : Array[0..4] of String[03];
function NaoAchaPreposicao(Palavra : String): Boolean;
var
x : Integer;
begin
Result := True;
for x := 0 to 4 do
if Trim(Palavra) = lista[x] then
Result := False;
end;
begin
Result := Nome;
lista[0] := 'das'; lista[1] := 'dos' ;
lista[2] := 'de'; lista[3] := 'do' ;
lista[4] := 'da';
Result := UpCase(Result[1]) + Copy(Result, 2, Length(Result));
for x := 2 to Length(Nome) do begin
if Nome[x] = #32 then
if Copy(Nome,x+1,1) 'e' then
if NaoAchaPreposicao(Copy(Nome,x+1,3)) then
Result := Copy(Result, 1, x)
+ UpCase(Result[x+1])
+ Copy(Result, x+2, Length(Result));
end;
end;
//Como usar
Edit2.Text := UpperNome(LowerCase(Edit1.Text));
Em 4 de agosto de 2010 06:56, Dirlei Dionísio dir...@gmail.com escreveu:
Meu passatempo do início da manhã...
function capitulate(const input: string): string;
var index: integer;
begin
result := input;
for index:=1 to length(result) do
if (index=1) or (result[index-1]=' ') then
result[index] := ansiUpperCase(result[index])[1];
end;
ou
http://pastebin.com/06GTVaNm
--
Dirlei Dionísio
http://MaisQueBomCodigo.blogspot.com
Em 3 de agosto de 2010 13:13, Pablo Farias
develo...@marketingrapido.com.br
escreveu:
Ola pessoal,
preciso capitular as palavras de uma string por exemplo
pablo farias transformar em Pablo Farias
Alguem sabe como fazer isto?
--
Pablo Farias
Fone(81)9169.3339
develo...@marketingrapido.com.br developer%40marketingrapido.com.br
skype : marketingrapido
www.marketingrapido.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
--
Luciano S. Bruno
Consultor em TI
[As partes desta mensagem que não continham texto foram removidas]
