Probleme mit StrToFloat

[stoxx]

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 ...