Anzahl der Vorkommastellen bestimmen ???

[MisterNiceGuy]

Delphi-Quellcode:

function Vorkommastellen(Zahl:Real):integer;
var I, erg:integer;
    hlp:string;
begin
  erg := 0;
  hlp := floattostr(Zahl);
    for i:=1 to length(hlp) do
      begin
        if hlp[i] <> ',' //Oder Punkt, je nachdem wie du trennst 
          then
            erg := erg+1
          else break;
      end;
result := erg;
end;

Ist jetzt nicht getestet, hoffe er funktioniert