Ver Mensaje Individual
  #1  
Antiguo 03-03-2011
ferjavrec2 ferjavrec2 is offline
Registrado
 
Registrado: may 2007
Posts: 7
Reputación: 0
ferjavrec2 Va por buen camino
Problema al asignar valor a array

Hola buenas tardes, les quiero pedir si me pueden ayudar con este error que tengo ya que no lo he podido soluccionar aun. Estoy haciendo un sistema para autorizar factura electronicas y al querer asignar un valor al array me sale un error "Access violation at address 00531246 in module 'Project1.exe'. Read of address 00000000"

aca dejo la forma como cargo un dato al array:
Código Delphi [-]
var
 prueba: ArrayOfFEDetalleRequest;
begin
 prueba[0].tipo_doc := 80;

end;


Y aca dejo parte del WebService:
Código Delphi [-]
ArrayOfFEDetalleRequest = array of FEDetalleRequest;


  // ************************************************************************ //
  // XML       : FERequest, global, 
  // Namespace :
  // ************************************************************************ //
  FERequest = class(TRemotable)
  private
    FFecr: FECabeceraRequest;
    FFecr_Specified: boolean;
    FFedr: ArrayOfFEDetalleRequest;
    FFedr_Specified: boolean;
    procedure SetFecr(Index: Integer; const AFECabeceraRequest: FECabeceraRequest);
    function  Fecr_Specified(Index: Integer): boolean;
    procedure SetFedr(Index: Integer; const AArrayOfFEDetalleRequest: ArrayOfFEDetalleRequest);
    function  Fedr_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Fecr: FECabeceraRequest        Index (IS_OPTN) read FFecr write SetFecr stored Fecr_Specified;
    property Fedr: ArrayOfFEDetalleRequest  Index (IS_OPTN) read FFedr write SetFedr stored Fedr_Specified;
  end;



  // ************************************************************************ //
  // XML       : FEDetalleRequest, global, 
  // Namespace :
  // ************************************************************************ //
  FEDetalleRequest = class(TRemotable)
  private
    Ftipo_doc: Integer;
    Fnro_doc: Int64;
    Ftipo_cbte: Integer;
    Fpunto_vta: Integer;
    Fcbt_desde: Int64;
    Fcbt_hasta: Int64;
    Fimp_total: Double;
    Fimp_tot_conc: Double;
    Fimp_neto: Double;
    Fimpto_liq: Double;
    Fimpto_liq_rni: Double;
    Fimp_op_ex: Double;
    Ffecha_cbte: string;
    Ffecha_cbte_Specified: boolean;
    Ffecha_serv_desde: string;
    Ffecha_serv_desde_Specified: boolean;
    Ffecha_serv_hasta: string;
    Ffecha_serv_hasta_Specified: boolean;
    Ffecha_venc_pago: string;
    Ffecha_venc_pago_Specified: boolean;
    procedure Setfecha_cbte(Index: Integer; const Astring: string);
    function  fecha_cbte_Specified(Index: Integer): boolean;
    procedure Setfecha_serv_desde(Index: Integer; const Astring: string);
    function  fecha_serv_desde_Specified(Index: Integer): boolean;
    procedure Setfecha_serv_hasta(Index: Integer; const Astring: string);
    function  fecha_serv_hasta_Specified(Index: Integer): boolean;
    procedure Setfecha_venc_pago(Index: Integer; const Astring: string);
    function  fecha_venc_pago_Specified(Index: Integer): boolean;
  published
    property tipo_doc:         Integer  read Ftipo_doc write Ftipo_doc;
    property nro_doc:          Int64    read Fnro_doc write Fnro_doc;
    property tipo_cbte:        Integer  read Ftipo_cbte write Ftipo_cbte;
    property punto_vta:        Integer  read Fpunto_vta write Fpunto_vta;
    property cbt_desde:        Int64    read Fcbt_desde write Fcbt_desde;
    property cbt_hasta:        Int64    read Fcbt_hasta write Fcbt_hasta;
    property imp_total:        Double   read Fimp_total write Fimp_total;
    property imp_tot_conc:     Double   read Fimp_tot_conc write Fimp_tot_conc;
    property imp_neto:         Double   read Fimp_neto write Fimp_neto;
    property impto_liq:        Double   read Fimpto_liq write Fimpto_liq;
    property impto_liq_rni:    Double   read Fimpto_liq_rni write Fimpto_liq_rni;
    property imp_op_ex:        Double   read Fimp_op_ex write Fimp_op_ex;
    property fecha_cbte:       string   Index (IS_OPTN) read Ffecha_cbte write Setfecha_cbte stored fecha_cbte_Specified;
    property fecha_serv_desde: string   Index (IS_OPTN) read Ffecha_serv_desde write Setfecha_serv_desde stored fecha_serv_desde_Specified;
    property fecha_serv_hasta: string   Index (IS_OPTN) read Ffecha_serv_hasta write Setfecha_serv_hasta stored fecha_serv_hasta_Specified;
    property fecha_venc_pago:  string   Index (IS_OPTN) read Ffecha_venc_pago write Setfecha_venc_pago stored fecha_venc_pago_Specified;
  end;

Bueno desde ya muchas gracias por su tiempo.
saludos