dar formato float a un edit

[Jheysson13]

salu2, a todos

me gustaria saber como le hago para dar el formato de punto foltante a un edit, es decir,
si tengo esto

Código Delphi [-]
(edit1.text):= floattostr(strtofloat(edit2.text)*strtofloat(edit3.text));

el resultado es asi

Código Delphi [-]
edit1.text=xx,xxxxxxxxxxxxxxxxx

y megustaria que fuera de esta manera

Código Delphi [-]
edit1.text:= xx,xx

otra cosa es que en mi tabla esta declarado como float el campo total
y si se almacena con punto en ves de coma me dice que no es un valor flotante real, a que se debe esto.

espero me puedan ayudar gracias de antemano

[[eduarcol]]

Código Delphi [-]
Edit1.Text := FormatFloat('#,##0.00', strtofloat(edit2.text)*strtofloat(edit3.text));

[ManelC]

Correcto,

para el error en el SQL yo utilizo dos funcioncillas, una para quitar el formateo de miles y la otra para poner puntos en vez de comas (son dos pq también las utilizo por separado):

strValorCamp := strFormatDecimal(strTreuMascaraMilers(strValorCamp));

Código Delphi [-]
Function strTreuMascaraMilers(strNum: String): String;
var
    i: Integer;
    strTmp: String;

begin

    // Saca los puntos si los tiene
    strTmp := '';
    for i := 1 to length(strNum)  do
        if strNum[i] <> '.' then strTmp := strTmp + strNum[i];

    strTreuMascaraMilers := strTmp;

end;

Código Delphi [-]
// --------------------------
Function strFormatDecimal(strNum: String): String;
begin

  if (AnsiPos(',', strNum) <> 0) then
    strNum := Copy(strNum, 0, AnsiPos(',', strNum)-1) + '.' +
      Copy(strNum, AnsiPos(',', strNum) + 1, Length(strNum)-AnsiPos(',', strNum));

  if strNum = '' then strNum := '0';

  strFormatDecimal := strNum;

end;

Espero que te sirva

[[coso]]

hola. se pueden simplificar bastante si usas StringReplace,

Código Delphi [-]
...
StringReplace(txt,'.','');
...
StringReplace(txt,'.',',');
...

[Jheysson13]

Empezado por coso

hola. se pueden simplificar bastante si usas StringReplace,

Código Delphi [-]...
StringReplace(txt,'.','');
...
StringReplace(txt,'.',',');
...

Pero como es exactamente que funciona esta funcion por que me parece que esla mas sencilla de las tres, pero podrias dar un ejemplo gracias..

[[coso]]

?? la mas correcta y la que se usa para eso, es el formatfloat. La ayuda viene en delphi. Si luego quieres hacer cambios en un string, entonces usa StringReplace. Pero para formatear un float, pues formatfloat.

[Jheysson13]

ok gracias a todos, ya pude dar con lo k keria grasia a sus ayudas


salu2