Devart Forums

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
  OraStoredProc1.Close;
  OraSQL1.ParamByName('PID').AsInteger                := 24;
  OraSQL1.ParamByName('PTIPOFILTRO').AsInteger        := 3;
  OraSQL1.ParamByName('SIZEOFTDBDHDR1PKT').AsInteger  := 3;
  OraSQL1.ParamByName('SIZEOFTDBHDRDATO').AsInteger   := 4;
  OraSQL1.ParamByName('SIZEOFTDBINDEXPKT').AsInteger  := 5;
  OraSQL1.Execute;

  OraStoredProc1.OptionsDS.ScrollableCursor := True ;
  OraStoredProc1.Cursor := OraSQL1.Parambyname('RESULT').AsCursor;
  OraStoredProc1.Open;
end;

procedure TForm1.ShowRes;
begin
  Edit1.Text := Format('ID %d',[(OraStoredProc1 as TDataSet).FieldByName('ID').AsInteger]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OraStoredProc1.Next; --> OK 
  ShowRes;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  OraStoredProc1.Prior; --> NOT OK :( 
  ShowRes;
end;