Ver Mensaje Individual
  #6  
Antiguo 03-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola noelr.
Cita:
gracias a todos por sus respuestas, pero me surge otra duda que pasara si ejecuto mi aplicación en una maquina que tenga una configuración diferente?
Podes evaluar la configuración del separador decimal y luego hacer la conversión:
Código Delphi [-]
function StrToFloatDSep(Value: string): Double;
begin
  if(DecimalSeparator = '.') and (Pos(',',Value) > 0) then
    Value[Pos(',',Value)]:= '.';
  if(DecimalSeparator = ',') and (Pos('.',Value) > 0) then
    Value[Pos('.',Value)]:= ',';
  Result:= StrToFloat(Value);
end;
O del mismo modo con la función StringReplace
Código Delphi [-]
function StrToFloatDSep(Value: string): Double;
begin
  if(DecimalSeparator = '.') and (Pos(',',Value) > 0) then
    Value:= StringReplace(Value,',','.',[]);
  if(DecimalSeparator = ',') and (Pos('.',Value) > 0) then
    Value:= StringReplace(Value,'.',',',[]);
  Result:= StrToFloat(Value);
end;
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 03-05-2012 a las 19:23:44.
Responder Con Cita