Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID
PESQUISAR DICA:
CONVERTER PRIMEIRA LETRA PARA MAIUSCULA EM UM TEXTO
procedure TForm1.SpeedButton1Click(Sender: TObject); var i: Integer; s: String; const b: bool = False; begin Edit2.Text := AnsiLowerCase(Edit1.Text); for i := 1 to Length(Edit2.Text) do begin if (i = 1) or (b) then if Edit2.Text[i] in ['a'..'z'] then begin s := Edit2.Text; s[i] := UpCase(s[i]); Edit2.Text := s; b := False; end; if (Edit2.Text[i] = ' ') then b := True end; end;