Fórum Iniciais em maiúsculo. #277870

function CaixaMista (mNome: string): string;
var
tam,pos1,pos2 : integer ;
pal : string;
begin
tam := Length(mNome);
mNome := TrimRight(mNome) + ´ ´;
mNome := AnsiUpperCase(mNome);
while True do
begin
pos1:=POS( ´ ´ , mNome) ;
if pos1 = 0 then
break;
pal := Copy(mNome,1,pos1) ;
pos2 := pos(pal, ´ DA - DAS - DE - DO - DOS ´);
If pos2 > 0 then
pal :=AnsiLowerCase (pal)
else
pal:=Copy(pal,1,1) + AnsiLowerCase(Copy(pal,2,tam)) ;
result := result + pal ;
mNome := copy(mNome,pos1+1,tam)
end;
end;

TEdit( Sender ).Text := CaixaMista( TEdit( Sender ).Text );