probier mal die Function StrToFloatSafe aus der
Unit JclStrings von
Jedi
Delphi-Quellcode:
var
s : String;
d : Double;
begin
s := 'Eine Zahl: 123,45';
d := StrToFloatSafe(s);
s := '123,45 Euro';
d := d + StrToFloatSafe(s);
ShowMessage('Ergebnis :'+ FloatToStr(d));
// da wird 246,9 angezeigt
ach sorry, hab zu schnell gelesen, war ja nicht sein Problem, lass den Post trotzdem mal stehen ...