Strtofloat / StrtofloarDef no funcionan
 

Hola amigos;

tengo un error que me está volviendo loco, las funciones STRTOFLOAT y STRTOFLOATDEF no me están haciendo la conversión en un procedimiento de un programa
estoy anexando una imagen del código para que vean los valores con el Watch.

les explico un poco...
es una rutina que lee los valores de un XML
el valor que obtengo del XML lo guardo en una variable string (xrec_valor)

si el "campo" que estoy leyendo en el XML es = subtotal, convierto con STRTOFLOATSTRTOFLOATDEF el valor de xrec_valor y lo guardo en la variable xrec_subtotal (tipo double)

al ejecutar el codigo no tengo ningun error ni nada por el estilo, solamente el valor de xrec_subtotal queda en 0

si en la evaluacion de la variable (Ctrl-F7) verifico strtofloatdef(xrec_valor,o) si me hace la conversion

Alguna idea?

NOTA MODERADOR: Añado la imagen.

En el PDF que adjuntas se ve una captura de imagen cortada y no se aprecia ni el código ni el Watch List.

Yo haría un log de los valores xrec_valor y xrec_subtotal justo después de haber hecho la conversión.
Por ejemplo, agregas un TMemo al formulario y llenas líneas con estas datos.
Además pondría todo entre un try..except porque StrToFloat podría fallar.
Por ejemplo, StrToFloat

• podría no aceptar la "," (coma) como separador decimal.
• podría no aceptar separador de miles.
• puede ser que venga un caracter no admitido (por ejemplo '123.45€')

Código Delphi [-]
...
try
  xrec_subtotal := StrToFloat(xrec_valor);
  MemoLog.Lines.Add(format('xrec_valor: %s --> xrec_subtotal: %f', [xrec_valor, xrec_subtotal]));
except
  on E:Exception do
    MemoLog.Lines.Add(format('Error convirtiendo xrec_valor: %s', [xrec_valor]) + #13#10 + E.Message);
end;
...

Subo la imagen completa

(por cierto, que lio para poder subir una imagen)

En este caso la resolución es muy pobre y no se lee nada...

¿Has probado debugar los valores con el código que he puesto en el mensaje anterior?
¿Qué sale?
¿Qué separador decimal llega?
¿Llega separador de miles?
¿Llegan caracteres no convertibles?
¿Llega vacío?

Pues ya lo hice funcionar, pero tal parece que necesito aprender Delphi otra vez, el primer código es el que no funciona, (nota: le he estado haciendo cambios)...
subo el código...

Código Delphi [-]
procedure Leerecibo;
var
     xrec_linea,xrec_campos : integer;
     xrec_seccionxml,xrec_fields,xrec_values,xrec_secciones,xrec_subsecciones,xmientras : string;
     xrec_campo : widestring;
     xrec_valor : widestring;
     xrec_texto : widestring;
     xrec_estexto,xrec_seccion,xrec_subseccion : boolean;
     xrectotal,xrecsubtotal,xrecprima,xrecgasto,xrecderecho,xreciva,xrectc : double;

begin
     xrec_subsecciones:='Descripcion,Importe';
     xrec_values      :='prima,derechos,gasto,prima de la poliza,gastos de expedición';

     xrectotal    := 0;
     xrecsubtotal := 0;
     xrecprima    := 0;
     xrecgasto    := 0;
     xrecderecho  := 0;
     xreciva      := 0;

     for xrec_linea := 0 to XML.Tags.Count-1 do
     begin
          if XML.Tags[xrec_linea].name='?xml' then continue;

          xrec_seccionxml := XML.Tags[xrec_linea].name;

          for xrec_campos:=0 to XML.Tags[xrec_linea].AttributeCount - 1 do
          begin
               xrec_campo := XML.Tags[xrec_linea].Attributes[xrec_campos].Name;
               xrec_valor := UTF8Decode(XML.Tags[xrec_linea].Attributes[xrec_campos].Value);

               // obtencion de totales del recibo
               if Ansilowercase(xrec_campo) = 'subtotal'   then
                    xrecsubtotal := strtofloatdef(xrec_valor,0);
               if Ansilowercase(xrec_campo) = 'total'      then
                    xrectotal    := strtofloatdef(xrec_valor,0);
               if Ansilowercase(xrec_campo) = 'tipocambio' then
                    xrectc       := strtofloatdef(xrec_valor,0);

y este es el codigo que ya funciona:

Código Delphi [-]
var
     LineasXML : Tstringlist;
     XML       : TclHtmlParser;
     xrectotal,xrecsubtotal,xrecprima,xrecgasto,xrecderecho,xreciva,xrectc : double;


implementation
uses UDM,Ufunciones,umain, Dialogs;

procedure Leerecibo;
var
     xrec_linea,xrec_campos : integer;
     xrec_seccionxml,xrec_fields,xrec_values,xrec_secciones,xrec_subsecciones,xmientras : string;
     xrec_campo : widestring;
     xrec_valor : widestring;
     xrec_texto : widestring;
     xrec_estexto,xrec_seccion,xrec_subseccion : boolean;
begin
     xrec_subsecciones:='Descripcion,Importe';
     xrec_values      :='prima,derechos,gasto,prima de la poliza,gastos de expedición';

     xrectotal    := 0;
     xrecsubtotal := 0;
     xrecprima    := 0;
     xrecgasto    := 0;
     xrecderecho  := 0;
     xreciva      := 0;

     for xrec_linea := 0 to XML.Tags.Count-1 do
     begin
          if XML.Tags[xrec_linea].name='?xml' then continue;

          xrec_seccionxml := XML.Tags[xrec_linea].name;

          for xrec_campos:=0 to XML.Tags[xrec_linea].AttributeCount - 1 do
          begin
               xrec_campo := XML.Tags[xrec_linea].Attributes[xrec_campos].Name;
               xrec_valor := UTF8Decode(XML.Tags[xrec_linea].Attributes[xrec_campos].Value);

               // obtencion de totales del recibo
               if Ansilowercase(xrec_campo) = 'subtotal'   then
                    xrecsubtotal := strtofloatdef(xrec_valor,0);
               if Ansilowercase(xrec_campo) = 'total'      then
                    xrectotal    := strtofloatdef(xrec_valor,0);
               if Ansilowercase(xrec_campo) = 'tipocambio' then
                    xrectc       := strtofloatdef(xrec_valor,0);

El valor que llegaba es '6532.74'... (en mexico usamos el . como separador decimal)

Lo unico que hice fue declarar las mismas variables fuera del procedimiento, para mi no tiene logica, por que no funciono cuando las variables estaban declaradas dentro del procedimiento?