Zahl hochzählen

[Daniel B]

Hi,

normalerweise kann ich mit folgendem Code eine Zahl hochzählen.

Code:

  Edit1.Text := '0';
  Edit1.Text := IntToStr(StrToInt(Edit1.Text) +1);

Wie wandle ich das aber in Real um? Der Integer und auch der Int64 reichen mir nicht. Ich brauche also Real, o. ä.
Vielen Dank.

[sakura]

Code:

Edit1.Text := FloatToStr(StrToFloat(Edit1.Text) +1);

[Daniel B]

Hi,

es geht, aber es ist noch nciht so ganz wie ich es wollte, denn die Zahlen werden mit xxExx angezeigt, ich hätte sie aber gerne ausgeschrieben. Ist das machbar?

[sakura]

Fließkommazahlen sind leider nicht genau genug. Du musst Dich wohl mit Int64 begnügen. Mehr geht mit den Pascal Standards leider nicht.

[Daniel B]

oki, trotzdem danke.
Ich wollte ein Edit das von 5px bis ca. 20cm lang ist, füllen.
Irgendwo gibt es halt doch noch grenzen.

[Mark Halter]

Hi,

:idea: wie wäre es denn mit

Code:

var
  f : Extended;
begin
  f := 180.0000000000015;
  Edit1.Text := FormatFloat('0.000000000000000000000', F);
end;

Damit wird die Zahl ausgeschrieben und zwar mit soviel stellen, wie du Nullen nach dem Dezimalpunkt angibst.

Grüße

Mark
Syntax by FuckRacism

[Daniel B]

Ich baruche aber ganze Zahlen und keine Kommastellen. :mrgreen:
Trotzdem Danke.

[Mark Halter]

Na, dann lass halt die Nullen und den Punkt weg:

Code:

var
  f : Extended;
begin
  f := 1800000000000015;
  Edit2.Text := FloatToStr(f); // -> 1,80000000000002E15
 Edit1.Text := FormatFloat('0', F+1);// -> 1800000000000016

Grüße

Mark
Syntax by FuckRacism