Ayuda con Delphi

[Dark_RavenM]

Dim objTarifa As clsTarifa
Dim objCC As clsCuotas
Dim intTmp as Integer
Dim colTmp as Collection
Set objTarifa = New clsTarifa
objTarifa.Ruta = "C:\"
objTarifa.Codigo = "15091001"
If objTarifa.Actualiza Then
   Set colTmp = objTarifa.CuotasC

objTarifa.CuotasC es el que regresa una coleccion

Si Delphi lo toma como un componente ActiveX

y asi lo tengo en Delphi

Código Delphi [-]

type
  TForm1 = class(TForm)
    objDia: TclsTarifa;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  info:variant;
  dispatch:idispatch
begin
   objDia.Ruta:='C:\';
   objDia.Codigo:='15091001';

   if objDia.Actualiza(TRUE) then
   begin
      dispatch:=objDia.CuotasC;
      info:=objDia.CuotasC;
   end;

pero ya no se como manejar el dispatch para obtener la informacion o la variable info como variant

[danielDelphi]

Buenos dias,
Si alguien me pudiera colaborar con este problema les agradeceria de por vida
tengo un inconveniente al hacer la captura y entrega de un parametro desde una caja de texto a un Tquery
miren

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject); begin QryMostrar.Close; DataSource.DataSet := QryBuscar; QryBuscar.Params[0].Value := codetxt.Text; QryBuscar.Open; end;

luego de esto

la sentencia de la TQuery esta asi



Select * from comments where codigo = ":codigo"


Me presenta un error Q no he podido solucionar es el list index out of bounds (0) alguna idea


Muchas gracias de antemano

[rgstuamigo]

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject);
begin 
 QryMostrar.Close; 
 DataSource.DataSet := QryBuscar;
 QryBuscar.ParamByName('codigo').AsInteger:=StrToInt(codetxt.Text);//aqui modifique
 QryBuscar.Open;
end;

Aparte te aconsejo que la sentencia SQL lo tengas asi:

Código SQL [-]
Select * from comments where codigo =:codigo;

No pongas las comillas para el parámetro codigo.