problemas cadenas y float

[noelr]

amigo las verdad estoy desesperado

por mas que he leído no logro solucionarlo no se por que no puedo convertir str a float


lo he intentado así y nomas no lo logro


stringValue := '12.3';

floatValue := StrToFloat(stringValue);


tambien he visto: http://www.delphibasics.co.uk/RTL.asp?Name=StrToFloat

he leido en el foro y me he puesto a googlear las solución es la misma pero no me funciona uso delphi 2010 no tendrá que ver alguna configuración de mi equipo o que se yo gracias por su apoyo y perdon por hacer una pregunta tan básica

[ecfisa]

Hola noelr.

Ese problema se ocasiona por la configuración regional del S.O. Nosotros usamos la coma como separador decimal mientras que los sajones el punto, por lo que seguramente tengas definido a la coma como símbolo decimal en Configuración regional y de idioma (panel de control).

Te propongo dos soluciones:
1)

var
s: string;
f: Single;
begin
s:= '12.3';
DecimalSeparator:= '.'; // separador decimal ahora es '.'
f:= StrToFloat(s); // hacer la conversión
DecimalSeparator:= ','; // restauramos separador decimal
...


2)

var
s: string;
f: Single;
begin
s:= '12.3';
s[Pos('.',s)]:= ','; // encontrar punto, reemplazarlo por coma
f:= StrToFloat(s); // hacer la conversión
s[Pos(',',s)]:= '.'; // restaurar cadena (se puede omitir si es innecesario)
...


Saludos.

[Casimiro Notevi]

También puedes poner '12,3' con coma y no con punto.

[Enan0]

Si el valor es ingresado dentro de tu aplicacion, lo que podes hacer es manjear por defecto el valor que se ingresa por teclado.
En este caso si necesitas que sea "," validar que es lo que se ingresa y cambiar por lo que necesites.

y tambien vas a poder configurar con el valor

en este hilo se habla del tema

http://www.clubdelphi.com/foros/showthread.php?t=78292&highlight=thousandseparator

[noelr]

creo que lo mas fácil seria usar la opción que propone ecfisa por que ya tengo la base de datos de unos 12000 registros

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?

por la noche que llegue a mi casa aplicare las soluiones que me pasaron :D

gracias una vez mas

[ecfisa]

Hola noelr.
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:

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

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.

[roman]

pero me surge otra duda que pasara si ejecuto mi aplicación en una maquina que tenga una configuración diferente?

Nada, no debería pasar nada. Una aplicación no tendría porqué estar manipulando la configuración regional. Si tu usuario tiene configurado su sistema para usar coma como separador decimal entonces escribirá comas como separador decimal (esto debería ser obvio) y funciones como StrToFloat no fallarán. Lo mismo sucede si usa punto.

La única razón para tener que meterse en esos menesteres es que lo que escribe el usuario (coma o punto) difiera de lo que [el mismo usuario] tiene configurado en su sistema. Y bueno, ahí sí, lo que el cliente pida...

// Saludos