Raise

[Livio Neiva]

procedure TF_ConDisc.ButAtivaDesativaClick(Sender: TObject);

begin

if Not ButAtivaDesativa.Down then {se o filtro não estiver ativo}

DSBasico.DataSet := tabBasico

else

try

QryBasico.Close;

QryBasico.Open;

DsBasico.DataSet := QryBasico;

raise; <------------ERRO

end;

end;

end.

MENSSAGEM AO COMPILAR:

[Error] FConDisc.pas(90): Re-raising an exception only allowed in exception handler

[RenatoMejias]

Movendo para Delphi.

[Micheus]

procedure TF_ConDisc.ButAtivaDesativaClick(Sender: TObject);
begin
  if Not ButAtivaDesativa.Down then {se o filtro não estiver ativo}
    DSBasico.DataSet := tabBasico
  else
  try
    QryBasico.Close;
    QryBasico.Open;
    DsBasico.DataSet := QryBasico;
    raise;  <------------ERRO
  end;
end;
end.

MENSSAGEM AO COMPILAR: [Error] FConDisc.pas(90): Re-raising an exception only allowed in exception handler

Corrigindo...

procedure TF_ConDisc.ButAtivaDesativaClick(Sender: TObject);
begin
  if Not ButAtivaDesativa.Down then {se o filtro não estiver ativo}
    DSBasico.DataSet := tabBasico
  else
  try
    QryBasico.Close;
    QryBasico.Open;
    DsBasico.DataSet := QryBasico;
  except  // *** Tem que haver o except para utilizar o raise
    raise;
  end;
end;