Delphi no dia a dia

Alterando dados do campo antes de gravar

Em alguns casos, você quer alterar os valores de um campo antes de gravar os dados. Para isso, você pode usar o evento BeforePost do Dataset e alterar os dados necessários, desta maneira:

procedure TForm1.ClientDataSet1BeforePost(DataSet: 

   TDataSet);

var

  Valor : String;

begin

  Valor := Dataset.FieldByName('Razao').AsString;

  if Valor[Length(Valor)] <> ' ' then

    Dataset.FieldByName('Razao').AsString := Valor+' ';

end;

postado por Bruno @ 7:15 AM