Nach Dezimalzeichen (. oder ,) des Systems fragen. Wie?

[himitsu]

Zitat:

Delphi-Quellcode:

if pos(',',s)>0 then neu:=copy(s,1,pos(',',s)-1)+'.'+copy(s,pos(',',s)+1,length(s))
else
if pos('.',s)>0 then neu:=copy(s,1,pos('.',s)-1)+'.'+copy(s,pos('.',s)+1,length(s));

das ELSE + zweites IF könntest du weglassen ... einen Punkt in einen Punkt umzuwandeln , also nee

Delphi-Quellcode:

if pos(',',s)>0 then s:=copy(s,1,pos(',',s)-1)+'.'+copy(s,pos(',',s)+1,length(s));

// nur einmal das Komma suchen
i :=pos(',',s);
if i>0 then s:=copy(s,1,i-1)+'.'+copy(s,i+1,length(s));

besonders schnell

Delphi-Quellcode:

i := Pos(',', S);
If i > 0 Then S[i] := '.';

aber der gesuchte Befehl ist rfReplaceAll:
S := StringReplace(S, ',', '.', [rfReplaceAll];

und da es nur einen Punkt geben kann:
neu := StringReplace(readstring(s), ',', '.', []);