Bueno por fin ha funcionado, al utilizar un componente ODAC para acceso a bases de datos Oracle, el código debe ser el siguiente, ya que este componente no devuelve filas:
Código:
procedure TfInformacion.Btn_iniciarClick(Sender: TObject);
begin
OraSQL1.SQL.Clear;
OraSQL1.SQL.Text := ' Declare'+#13+
' c Integer;'+#13+
' begin'+#13+
' SELECT Count(*)'+#13+
' INTO :c'+#13+
' FROM desarrollo.personal;'+#13+
' end;';
OraSQL1.Params[0].DataType := ftInteger;
OraSQL1.Execute;
end;
Código:
procedure TfInformacion.OraSQL1AfterExecute(Sender: TObject; Result: Boolean);
begin
memo1.Lines.Add('Nº de Registros = ' + formatfloat('#,##0',OraSQL1.Params[0].AsInteger));
end;
Gracias a todos por vuestro tiempo.
Un saludo
Jose Manuel García.