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
