Problem mit Großen Zahlen

[Viperb0y]

Also, ich habe ein Problem:

Hier:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
zahl123: double;
begin
zahl123 := strtoint(LabeledEdit1.Text);
if zahl123>1000000000
then begin
ShowMessage('Diese Zahl ist zu hoch!');
exit;
end;
end;

Das problem ist; wenn die zahl ÜBER 1000000000 stürzt das proggie ab und sagt: wert ist kein gültiger integer wert!

Gibt es etwas umd das zu ändern?

[Christian Seehase]

Moin Viperb0y,

nimm' mal StrToInt64.

[Dagon]

Du musst die Zeile
zahl123 := strtoint(LabeledEdit1.Text); in
zahl123 := StrToFloat(LabeledEdit1.Text); abändern.

[CalganX]

Hi,
double ist aber eher Kategorie reelle Zahlen.
Wenn du also ganze Zahlen verwenden willst, dann nimm longint und wenn dir das auch nicht hilft, dann dürfte int64 groß genug sein.

Chris

[Luckie]

Zwei Sachen:
Deine Variable ist als double deklariert, du konvertierst den Text aber zu einem Integer. da sollte dir der Compiler eigentlich was zu sagen.

Größer als Integer ist noch Int64.

[toms]

Das Problem liegt hier.

Zitat:

strtoint(LabeledEdit1.Text);

Wenn die Zahl in LabeledEdit1.Text zu gross ist, kann sie nicht
in einen Integerwert umgewandelt werden.

Abhilfe: Try...Except oder TryStrToConvUnit() verwenden.

[Alexander]

Ein Integer sollte eigentlich bis 2147483647 gehen, nimm mal Int64 und StrToInt64

Edit: Oh mein Gott wieviel haben da in den 2 Minuten gepostet

[CalganX]

Hi Luckie,

Zitat von Luckie:

Deine Variable ist als double deklariert, du konvertierst den Text aber zu einem Integer. da sollte dir der Compiler eigentlich was zu sagen.

Nein. Denn Integer sind kompatibel und ein TEIL von Real oder Double etc.

Chris

[Viperb0y]

Zitat von the_master:

Du musst die Zeile
zahl123 := strtoint(LabeledEdit1.Text); in
zahl123 := StrToFloat(LabeledEdit1.Text); abändern.

Danke funzt jetzt!