problema con decimales largos
 

un saludo al todo club

tengo un problema grande con decimales grandes
realizo esta operación donde esta celda tiene como valor 1.200,00

Código Delphi [-]
var restar:real;

resta2:=strtofloat(StringGrid1.Cells[6,stringGrid1.Row]);

y cuando pasa por esa linea me arroja este mensaje
con valores < 999,00 funciona perfectamente

el problema es cuando el decimal es > 1.000,00

porfavor me ayudan a solucionar

el problema es que 1.200,00 no es float es un numero compuesto estas separando los miles con un .(punto) tienes que poner los miles juntos osea 1200.00 como es que pasas el 1.200,00 al string

como lo convierto 1.200,00 a 1200,00 ?

como llenas el StringGrid1

por tema de estética lo lleno así:

Código Delphi [-]
  StringGrid1.Cells[6,StringGrid1.Tag] := FormatFloat('#,##0.00',strtofloat(ventaBs.text));   // 1.200,00

esos 1.200,00 quiero multiplicar con otro valor entero.
y ahi se me presenta el problema mencionado arriba.

como lo convierto 1200,00 ?

Código Delphi [-]
var
restar:real;
 s:string;
begin
// S :=StringGrid1.Cells[6,stringGrid1.Row];

s:=edit1.Text;
while Pos('.', S) > 0 do
begin
    Delete(S, Pos('.', S),1);
   s:=s;//strtofloat(S);
end;

s := StringReplace(s, ',', '.',[rfReplaceAll, rfIgnoreCase]);

Label1.Caption:=s;

Label2.Caption:= FloatToStr( StrToFloat(s)-100);


end;

esete codigo te podria funcionar pero si estas tomando informacion de un edit puedes poner el valor como se requiere.

Hola darkbits.

Otra opción:

Código Delphi [-]
var
  resta: Single;
begin
  resta := StrToFloat(StringReplace(StringGrid1.Cells[6,stringGrid1.Row] ,ThousandSeparator, '', [rfReplaceAll]));
...

Saludos :)

que es ?

ThousandSeparator

Por responder desde el teléfono no tengo delphi a mano para probar, pero no se puede indicar el formato en la función StrToFloat?

Yo uso StrToCurr pasando formato de moneda y no tuve nunca problemas con en punto. Por lo menos anda bien en windows xp, 7, server 2008 y windows 10 preview, usando delphi 2010

Separador de miles. Ejemplo si ThousandSeparator es '.'

1.200 > mil doscientos

Si fuera ','

1,200 > también mil doscientos

Si esta en blanco

1200 > mil doscientos

Tanto ese separador como el DecimalSeparator van de la mano digamos

Podes modificarlos desde delphi sin problema

darkbits,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

no lo puedes convertir directamente porque tiene dos caracteres separadores el punto y la coma o por lo menos no directamente.

o a menos que lo este intentando mal?

edit1.Text:='1.200,00';
Label1.Caption:=CurrToStr(StrToCurr(Edit1.Text ));