möchte FloatToStrF wieder in Float konv. (Zeichenfilter?)

[Sunlight7]

Hallo,

wenn ich Dich richtig verstanden habe, ist das Dein Problem:

"1.000 €" soll zu "1000" werden?!

Das wäre ne möglichkeit:

Delphi-Quellcode:

procedure Clean(var s:String);
begin
   // 1000er Trennzeichen
   While Pos(ThousandSeparator, s)>0 do
      Delete(s, Pos(ThousandSeparator, s), 1);

   // Leerzeichen
   While Pos(' ', s)>0 do
      Delete(s, Pos(' ', s), 1);

   // Währungssymbol
   While Pos(CurrencyString, s)>0 do
      Delete(s, Pos(CurrencyString, s), Length(CurrencyString));
end;

...
   var s:String;
begin
   s:='1.000 €';

   Clean(s);

   Label1.Caption:=s;
...

PS: Deinen Quelltext habe ich nicht probiert, es war mir zu mühsam das Formular aufzubauen