DBF - saber se um registro esta marcado para deletar

Top  Previous  Next

// Saber se um registro esta marcado para delecao

 

procedure TForm1.Table1CalcFields(DataSet: TDataSet);

var

  RProps : RecProps;

begin

  DbiGetRecord(Table1.Handle,dbiNOLOCK,nil,@RProps);

  if RProps.bDeleteFlag then

    Table1Deleted.Value := 'Del'

  else

    Table1Deleted.Value := '';

end;