Pasar de string a float

[joanajj]

Buenas a todos, quisiera hacer esto:

Recibo este valor en string. Por ej. valor='123456789'
y quiero pasarlo a numérico y que quede así: 123456,789

¿Cómo podría hacerlo???


Saludos....

[vic_ia]

Hola...
function mostrar(valor : string):string;
var
dato : Double;
begin
dato := StrToFloat(valor);
result := FormatFloat('######,###',dato);
end;
saludos....

[marcoszorrilla]

Otro ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
cCadena:String;
nNumero:Double;
begin
cCadena:='123456789';
nNumero:=StrToFloat(cCadena) /1000;
ShowMessage(FormatFloat(',0.000',nNumero)); //Para comprobar el resultado
end;

Un Saludo.

[joanajj]

Gracias por la rápida respuesta.