Inserir Dados Numa Ttable Em Uppercase

[natalie]

Ola a todos,

Gostava d saber s é possivel inserir-s em UpperCase numa TTable.

:)

[Micheus]

natalie, se você não pode utilizar a propriedade CharCase dos componentes DBEdit, então você pode aplicar o uppercase sobre o campo no evento BeforePost do respectivo dataset. Ex.:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  DataSet.FieldByName('Descricao').AsString := UpperCase(DataSet.FieldByName('Descricao').AsString);
 // ou se você tiver adicionado os campos no seu dataset, então pode usar como segue:
 // Table1Descricao.Value := UpperCase(Table1Descricao.Value);
end;

Deste modo, antes de os dados serem gravados na tabela, você poderia converter os campos que você deseja.

Espero que seja isto.

[]s