Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Nov 2009
Naja, einen Vorschlag hätte ich noch:function EuroStringToStr(s1: String; DecSep: char = ','): double;
var i: integer;
begin
for i:= length(s1) downto 1 do
if not (s1 in ) then
Delete(s1,i,1);
Result := StrToFloat(s1);
end;
Damit kann man sich dann aussuchen, ob fix das Komma oder doch lieber der Dezimalseparator genommen werden soll.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Nov 2009
Und wenn dann der Decimalseparator auf "." gestellt ist, kommt 123,45678 heraus und nicht 123456,78.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Nov 2009
Auf einem englischen System dürfte das aber nicht reichen, dem müsste man dann mitteilen, dass das Komma der DecimalSeparator ist.