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); S:=StringReplace(S,FS.ThousandSeparator,'',[rfReplaceAll]); Result:=TextToFloat(PChar(S),Valor,fvExtended,FS);end;
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