UpperCase

Delphi

11/03/2004

Pessoal tenho um DbGrid, umas das colunas é Codigo_Prod, onde o usuário digita o código do produto: Exemplo ´1A 4556´, poxa como eu faço para que essa coluna seja UpperCase?

Agradeço


Fabio.palm

Fabio.palm

Curtidas 0

Respostas

Danielclubedelphi

Danielclubedelphi

11/03/2004

select upper(nm_cliente) from cliente


GOSTEI 0
Rômulo Barros

Rômulo Barros

11/03/2004

Deixa o usuário alterar os valores do jeito que ele quiser, entretanto, antes do post, utilize o Upper();


GOSTEI 0
Fabio.hc

Fabio.hc

11/03/2004

Ou tente assim:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if DBGrid1.SelectedField.FieldName=´Codigo_Prod´ THEN
      Key := AnsiUpperCase(Key)[Length(Key)];
end;



GOSTEI 0
POSTAR