formato de un Tedit o Tlabel

[[coso]]

Para devolver un numero cuando hay separador de miles...

Código Delphi [-]
function SacarFormato(s : string;sep_m : char; sep_f : char) : double;
begin
            SacarFormato := 0; 
 
            s := StringReplace(s,sep_m,'',[rfReplaceAll, rfIgnoreCase]);
            s := StringReplace(s,sep_f,',',[rfReplaceAll, rfIgnoreCase]);     

            try
            SacarFormato := strtofloat(s);
            except
            raise exception.Create('error en SacarFormato.StrFloat');
            end;
end;

en tu caso, la llamaria asi :

Código Delphi [-]
       ...
       double b := SacarFormato('1.323,29','.',',');
       ...

EDITO : ups, q me olvido argumentos.


saludos