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 >>>>>

<*> 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:
    delphi-br-ow...@yahoogrupos.com.br
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:
    delphi-br-unsubscr...@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html


Responder a