[richy08]

Buenas tardes compañeros, me surgio una duda que sigo sin poder resolver, les cuento tengo creado un arreglo dinamico de esta forma

Código Delphi [-]
cambios : array of integer;

en el cual guardo un id correspondiente a un pago que realiza el cliente de esta forma

Código Delphi [-]
i2:=0;
seleccion2:=0;
seleccion2:=Qry_recargos.RecordCount;
Qry_recargos.First;
while ((i2and (saldo>0)) do
begin
SetLength(cambios,length(cambios)+1);
saldo:=saldo-strtofloat(FormatFloat('0.00',interesgenerado));
Qry_UpdCPP.Close;
Qry_UpdCPP.Parameters.ParamByName('pagado').Value:='Y';
Qry_UpdCPP.Parameters.ParamByName('idint').Value:=Qry_recargos.fieldbyname('idint').Value;
Qry_UpdCPP.ExecSQL;

//disminuye el saldo


   Qry_UpdDeposito.Close;
   Qry_UpdDeposito.Parameters.ParamByName('acode').Value:=Qry_pro.fieldbyname('acode').Value;
   Qry_UpdDeposito.Parameters.ParamByName('total').Value:=FormatFloat('0.00',interesgenerado);
   Qry_UpdDeposito.ExecSQL;
   cambios[i2]:=Qry_recargos.fieldbyname('idint').Value;
   Qry_recargos.Next;
   i2:=i2+1;
end;

y el arreglo queda mas o menos de esta forma

cambios[1]-> 1934
cambios[2]-> 1980
.
.
.
etc

pero ahora necesito a parte de guardar el id del pago, tambien guarde el monto por lo cual me debria quedar de esta forma

cambios[1]-> 1934, 1000
cambios[2]-> 1980, 2300
.
.
.
etc


gracias por cualquier comentario