Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda con arreglo de dos dimensiones (https://www.clubdelphi.com/foros/showthread.php?t=79788)

richy08 10-08-2012 18:54:16

Ayuda con arreglo de dos dimensiones
 
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

escafandra 10-08-2012 19:03:29

Lo mejor es que te crees una estructura (record) con los elementos que quieras y que podrás seguir añadiendo cuando lo necesites. Después haces un array de elementos de esa estructura.


Saludos.

richy08 10-08-2012 19:09:47

gracias escafandra le echare un ojo a los records

saludos


La franja horaria es GMT +2. Ahora son las 01:58:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi