Asignacion a Variable de tipo TXSCDecimal

[ruedabeat2003]

Hola estoy atorado con una signacion a una variable de tipo TXSDECIMAL pues me marca un error de Access Violation, mi codigo es:

var
  cantidad:TXSDecimal;
...
cantidad. := qAux.fieldByName('cantidad_comer').Float; // La asignacion me marca Access Violation

Tambien lo intente asi pero obtengo el mismo error:

cantidad.AsBcd := qAux.fieldByName('cantidad_comer').AsBCD;

Supongo que tengo que hacer una conversion antes de la asignación, cual ???

Saludos y gracias de antemano.

[ecfisa]

Hola.

Probá de este modo:

Código Delphi [-]
...
var
  cantidad: TXSDecimal;
begin
  cantidad:= TXSDecimal.Create;
  cantidad.AsBcd:= qAux.fieldByName('cantidad_comer').AsBCD;
  ...

Saludos.

[ecfisa]

Hola de nuevo.

Olvidé un detalle... Luego de crear la instancia cantidad, es conveniente liberarla con Free una vez que termines de usarla.

A modo de ejemplo:

Código Delphi [-]
uses XSBuiltIns, FMTBcd;

...
var
  cantidad: TXSDecimal;
  valor: Double;
begin
  valor:= 123.456;
  cantidad:= TXSDecimal.Create;
  try
    cantidad.AsBcd:= DoubleToBcd(valor);
    // operaciones con 'cantidad'
    ...
  finally
    cantidad.Free; 
  end;
end;

Saludos.

[ruedabeat2003]

Mi asignación la hice finalmente así:

var
   qAux:TQuery;
   XsDec : TxsDecimal;

begin
  XsDec := TXSDecimal.Create;
  XsDec.XSToNative(FormatFloat('%f',qAux.fieldByName('cantidad_comer').AsFloat));
  las_mercancias[i].cantidad := XsDec;

Incluso puedo ver el valor de mi arreglo donde a cantidad se asigna una dirección de memoria.
El problema ahora es que necesito hacer 3 asignaciones más a 3 elementos más de mi arreglo las_mercancias[i], y esto mismo para 3 registros de mi arreglo, uso la misma variable de paso definida anteriormente(XsDec : TxsDecimal), pero al final todos los elementos del arreglo tienen la misma dirección de memoria y el mismo valor, es decir el ultimo valor asignado a la variable de paso. Eso significa que lo que a cada elemento de mi registro y cada registro de mi arreglo le asigne es la ultima dirección de memoria asignada, lo que necesito es asignar el valor.

Necesitaría declarar un arreglo alterno para poner ahí mis valores o como puedo asignar el 'valor' a cada elemento?

  i := cuantos_regs(consec);
  SetLength(las_mercancias,i);
  i := 0;
  while not qAux.Eof do
   begin
     las_mercancias[i] := Mercancia.Create;
     las_mercancias[i].descripcionGenerica := qAux.fieldByName('descr_generica').AsString;
     las_mercancias[i].claveUnidad := UnidadMedida(qAux.fieldByName('cve_unidad_comer').AsInteger - 1);

     XsDec.XSToNative(FormatFloat('%f',qAux.fieldByName('cantidad_comer').AsFloat)); // Primer campo
     las_mercancias[i].cantidad := XsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_unitario').AsFloat]); // Segundo campo
     las_mercancias[i].valorUnitario := xsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_total').AsFloat]);    // Tercer campo
     las_mercancias[i].valorTotal := xsDec;
     xsDec.DecimalString := Format('%f', [qAux.fieldByName('valor_dolares').AsFloat]); // Cuarto campo
     las_mercancias[i].valorDolares := xsDec;

     Showmessage(las_mercancias[i].cantidad.NativeToXS);
     Showmessage(las_mercancias[i].valorUnitario.NativeToXS);
     Showmessage(las_mercancias[i].valorTotal.NativeToXS);
     Showmessage(las_mercancias[i].valorDolares.NativeToXS);
     qAux.Next;
     i := i + 1;
   end; // While
   XsDec.Free;
   qAux.Destroy;

Los showmessage me despliegan todos el mismo valor en cada iteración, al final los 4 elementos en los n-registros tienen el mismo valor.

He intentado de esta manera:

las_mercancias[i].valorDolares.DecimalString := Format('%f', [qAux.fieldByName('valor_dolares').AsFloat]);

No me marca error en compilacion pero si me marca un Access Violation en tiempo de ejecución.

Probe con :

las_mercancias[i].valorDolares.XSToNative(FormatFloat('%f',qAux.fieldByName('valor_dolares').AsFloat));

Pero me marca un Access Violation en tiempo de ejecución.

De antemano gracias por su ayuda.

[[egostar]]

Bueno, eso es fácil, crea un arreglo de TSXDecimal y asunto resuelto,

Código Delphi [-]

var
   qAux:TQuery;
   XsDec :Array[1..4] of  TxsDecimal;
   I: integer;

begin
  for I := 1 to 4 do
      XsDec[i] := TXSDecimal.Create;

  XsDec[1].XSToNative(FormatFloat('%f',qAux.fieldByName('cantidad_comer').AsFloat)); // Primer campo
  las_mercancias[i].cantidad := XsDec[1];
  xsDec[2].DecimalString := Format('%f', [qAux.fieldByName('valor_unitario').AsFloat]); // Segundo campo
  las_mercancias[i].valorUnitario := xsDec[2];
  xsDec[3].DecimalString := Format('%f', [qAux.fieldByName('valor_total').AsFloat]);    // Tercer campo
  las_mercancias[i].valorTotal := xsDec[3];
  xsDec[4].DecimalString := Format('%f', [qAux.fieldByName('valor_dolares').AsFloat]); // Cuarto campo
  las_mercancias[i].valorDolares := xsDec[4];
end;

Saludos