Artigo Clube Delphi Edição 19 - Super Dicas
Artigo da Revista Clube Delphi Edição 19.
Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.
Super Dicas
Dicas e macetes para facilitar a sua vida!
Convertendo a primeira letra de um Edit para maiúsculas
Para converter a primeira letra de um Edit para maiúsculas utilize o código abaixo:
procedure TForm1.Edit2Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit2 do
if Text <> '' then begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
Fim do trecho gratuito • continue abaixo
CONTEÚDO EXCLUSIVO
Desbloqueie toda a DevMedia
-
+2000 artigos e vídeos
-
+40 trilhas sobre Front-end, Back-end, IA e muito mais
-
+5000 exercícios práticos
-
Mentorias ao vivo individuais
Confira outros conteúdos:
Por
Devmedia
Em 2009