Função pra edit

Delphi

30/09/2003

Olá,

eu baixei no site uma função pra colocar a 1ª letra do edit maiúscula,
mas estou precisando pra toda as palavras , se alguém souber onde ou se puder disponibilizar, agradeço.

Att, Catharina.

catarina.malta@terra.com.br


Catharina

Catharina

Curtidas 0

Respostas

Mmtoor

Mmtoor

30/09/2003

Utilize uppercase


GOSTEI 0
Catharina

Catharina

30/09/2003

Olá...

uppercase---coloca toda palavar em maiúsculo, eu quero apenas a 1ª letra de cada palavra

Catharina.


GOSTEI 0
Beppe

Beppe

30/09/2003

Olá

function Capital(const S: String): String;
var
I: Integer;
Primeira: Boolean;
begin
Result := S;
Primeira := True;
for I := 1 to Length(S) do
if Primeira and IsCharLower(Result[I]) then
begin
if Integer(S) = Integer(Result) then UniqueString(Result);
UpperCaseBuff(@Result[I], 1);
Primeira := False;
end else
Primeira := not IsCharAlpha(Result[I]);
end;

Ataliba


GOSTEI 0
POSTAR