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
