Fórum Função pra edit #185386
30/09/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
08/10/2003
Mmtoor
Utilize uppercase
Responder
Gostei + 0
09/10/2003
Catharina
Olá...
uppercase---coloca toda palavar em maiúsculo, eu quero apenas a 1ª letra de cada palavra
Catharina.
uppercase---coloca toda palavar em maiúsculo, eu quero apenas a 1ª letra de cada palavra
Catharina.
Responder
Gostei + 0
09/10/2003
Beppe
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)