Ver Mensaje Individual
  #2  
Antiguo 21-02-2007
Avatar de Monchi
Monchi Monchi is offline
Miembro
 
Registrado: jun 2006
Ubicación: Cordoba, Argentina
Posts: 18
Reputación: 0
Monchi Va por buen camino
Aca te mando un ejemplito de como lo uso yo:
Tengo un form donde agrego los comprobante que quiero pagar.
Este el el boton donde llamo al form donde elijo cuales comprobantes agregar y que monto voy a pagar.

Código Delphi [-]
  public
    { Public declarations }
    g_detallePago:array [0..99]of recdetallepago;
  end;

procedure tfrmpagos.Agregar(sender:tobject);
var
codigo_comprobante:array [0..99] of longword;
monto_pago:array [0..99] of currency;
i:integer;
begin
for i:=0 to g_cantidadcomprobantes-1 do
   begin
   codigo_comprobante[i]:=g_detallepago[i].id_compra;
   monto_pago[i]:=g_detallepago[i].monto;
   end;
frmagregarcomprobante:=tfrmagregarcomprobante.Create(self);
frmagregarcomprobante.Abrir(codigo_comprobante,monto_pago,'P',strtoint(txtproveedor.Text),g_cantidad  comprobantes);
for i:=0 to g_cantidadcomprobantes-1 do
   begin
   g_detallepago[i].id_compra:=codigo_comprobante[i];
   g_detallepago[i].monto:=monto_pago[i];
   end;
end;
Y este es la llamada que tiene el form donde elijo los comprobantes
Código Delphi [-]
procedure tfrmAgregarComprobante.Abrir(var codigo:array of longword;var monto:array of currency;tipo:string;id_proveedor:word;var cantidad_comprobantes:integer);
var
i:integer;
begin
g_cantidad_comprobantes:=cantidad_comprobantes;
for i:=0 to g_cantidad_comprobantes-1 do
   begin
   g_codigo[i]:=codigo[i];
   g_monto[i]:=monto[i];
   end;
frmagregarcomprobante.ShowModal;
cantidad_comprobantes:=g_cantidad_comprobantes;
for i:=0 to cantidad_comprobantes-1 do
   begin
   codigo[i]:=g_codigo[i];
   monto[i]:=g_monto[i];
   end;
end;
Como ves, paso arrays de tipo var entre los form para poder trabajar los datos.
Espero te sirva
Saludos!
Responder Con Cita