problema con decimales largos

[ralf8727]

Empezado por darkbits

como lo convierto 1.200,00 a 1200,00 ?

como llenas el StringGrid1

[darkbits]

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 ?

[ralf8727]

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.

[ecfisa]

Hola darkbits.

Otra opción:

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

Saludos

[darkbits]

que es ?

ThousandSeparator

[[AgustinOrtu]]

Empezado por darkbits

que es ?

ThousandSeparator

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

[[nlsgarcia]]

darkbits,

Empezado por darkbits

...¿Que es ThousandSeparator?...

Revisa esta información:

1- ThousandSeparator

2- DecimalSeparator

Espero sea útil

Nelson.

[[AgustinOrtu]]

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

[ralf8727]

Empezado por AgustinOrtu

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

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 ));