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
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
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
skype : marketingrapido
www.marketingrapido.com.br
3 matches
Mail list logo
