StrtoFloat

[mjjj]

Hola amigos... tengo un preguntita...

necesito transformar el contenido de un TEdit, en una variable de tipo double.

El problema es que el contenido del TEdit es la siguiente manera, por ejemplo:

25.687,63 <-- es decir con puntos separador de miles y coma decimal.

¿Como hago para transformar ese numero (string) a un numero del tipo float y asi poder trabajar con el?

Muchas gracias por su tiempo

[[egostar]]

Bueno, por el foro hay infinidad de hilos con esto que preguntas, si mal no recuerdo debes usar la funcion DecimalSeparator para asignar la coma como separador decimal (como lo dice el nombre), tambien debes de quitar los puntos que separan los miles y puedes usar la funcion StringReplace.

Busca en la ayuda de delphi para que veas los formatos de cada una de estas funciones.

Salud OS

[[Héctor Randolph]]

Hola mjjj

Siguiendo la idea de Egostar, aquí te pongo una función para convertir el texto a número

En esta página puedes obtener una tabla con los valores que le puedes pasar en el parámetro LCID:

http://www.microsoft.com/globaldev/r.../lcid-all.mspx

Código Delphi [-]
function TextoANumero(S: String;var Valor: Extended; LCID: Integer):Boolean;
var
  FS: TFormatSettings;
begin
 GetLocaleFormatSettings(LCID,FS); // Llenar la estructura TFormatSettings
 S:=StringReplace(S,FS.ThousandSeparator,'',[rfReplaceAll]);//Elimina separador de miles
 Result:=TextToFloat(PChar(S),Valor,fvExtended,FS);//Convierte a texto
end;

 // 1034  LCID Español (España tradicional)
 // 3082  LCID Español (España moderno)
 // 2058  LCID Español (México)
 // 11274 LCID Español (Argentina)

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFormatSettings;
  Flotante: Extended;
begin
 if TextoANumero(Edit1.Text,Flotante,1034) then
    ShowMessageFmt('%f',[Flotante])
 else
  ShowMessage('Error');
end;

Saludos