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

Delphi-Quellcode:

zahl123 := strtoint(LabeledEdit1.Text);

in

Delphi-Quellcode:

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. :roll:

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 :shock:

[CalganX]

Hi Luckie,

Zitat:

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. :roll:

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

Chris

[Viperb0y]

Zitat:

Zitat von the_master

Du musst die Zeile

Delphi-Quellcode:

zahl123 := strtoint(LabeledEdit1.Text);

in

Delphi-Quellcode:

zahl123 := StrToFloat(LabeledEdit1.Text);

abändern.

Danke funzt jetzt!