Hi,
ich habe da im Moment eine Blockade
Ich suche einen einigermassen Effizienten Algorithmus mit dem ich die Anzahl der Vorkommastellen eines Reals bestimmen kann (Beispiel: 123,456 entspricht '3').
Kann mir da jemand auf die Sprünge helfen?

Gruss Cliff

Moin Cliff,

wie wäre es mit dem Logarithmus zur Basis 10?

Hey,
so müsste es gehen

markieren

Delphi-Quellcode:

var
  v: Integer;
  s: String;
begin
  v := 14234.43245;
  Str(v:6:2, s); // die 6 steht für die Vorkommastellen
  Edit.Text := s;
end;

Hoffe es hilft dir weiter
mfg
CT86

Trunc(Log10(n) + 1). Achte auf negative Werte.

[edit]Vieeel zu langsam...[/edit]

Zitat von d3g:

Trunc(Log10(n) + 1). Achte auf negative Werte.
[edit]Vieeel zu langsam...[/edit]

Aus gegebenem Anlass habe ich dieses Thema exhumiert. Vielleicht gibt es ja inzwischen bessere Ansätze, aber "Viel zu langsam" kann ich nicht nachvollziehen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TestCode;
var Dbl1,Dbl2:Double;
    i,Bis:integer;
    StopWatch:TStopWatch;
begin
  Dbl2 := 654321.123456;
  StopWatch := TStopWatch.StartNew;
  Bis := Min(100000000,High(integer));
  For i := 0 to Bis do begin
    Dbl1 := Floor(1 + Log10(Abs(Dbl2)));
// Dbl1 := Pos(',',FloatToStr(Dbl2)) + 1;
  end;
  StopWatch.Stop;
  ShowMessage(Format('%d %s%.0n %s%0.7n7 %s', [StopWatch.ElapsedMilliseconds,'msec (',Bis/1,'Dateien)' + NZ,StopWatch.ElapsedMilliseconds/Bis,'msec je Durchlauf']));
  Application.Terminate;
end;

100 Millionen Durchläufe dauern auf meinem Rechner ca. 1,7 Sekunden, das sind etwa 17,3 Nanosekunden je Berechnung. Ohne das Abs ist es noch eine Nanosekunde weniger. Die Stringlösung dauert etwa 15 Mal länger.

Ich denke, dass das Edit "Viel zu langsam" vor 16 Jahren so gemeint war, das ganze zwei Minuten vorher die Antwort mit dem Logarithmus auch schon gegeben wurde, was aber erst nach dem Absenden der Antwort bemerkt wurde.

Du bist Bestatter oder Archäologe, jedenfalls kennst du dich mit den prähistorischen Gepflogenheiten offenbar besser aus!

Ich würde auch dir Variante mit dem Zehner-Logarithmus empfehlen, da die AFAIK auf Intel-Rechner als Hardware-Variante zur Verfügung steht.

zusammenfalten · markieren

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

Geht nicht einfach
pos(',',floattostr(123,456))+1;