Currency zu Integer

[Ast85]

Hallo zusammen,

ich habe folgendes (Anfänger-)Problem:

Ich erhalte aus einer Funktion einen Wert zurück (eigentliche Eingabe bis zu 12 Ziffern, hier 111222333999), nämlich diesen: 1,11222334e+11.
Diesen Wert möchte ich nun in einer Integer-Variablen speichern und zwar als 111222333999.
Gibt es da vielleicht eine Möglichkeit, die ich noch nicht gefunden habe?

Ich habe folgendes probiert:
in der Variable curr steht 1,11222334e+11

varstr := floattostr(curr); --> varstr = '111222333999'
varint := strtoint(varstr); --> varint = 0

Wie bekomme ich meinen gewünschten Wert in die Integer-Variable?

Vielen Dank schon mal!

VG Ast85

[Koolance]

Die Zahl ist zu groß für einen Integer, probier es mal mit einem Longint.

[Koolance]

Brauchst sogar einen int64.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  a1:int64;
begin
  a1:=strtoint64('111222333999');

  showmessage(inttostr(a1));

end;

[Ast85]

Mit int64 klappts!

Vielen Dank für die schnelle Hilfe!!

[DataCool]

LongInt und Integer, sind in Delphi momentan die gleiche Größe: 32 Bit, mit Vorzeichen

Verwende alternativ:
- Cardinal(32 Bit, ohne Vorzeichen)
- LongWord(32 Bit, ohne Vorzeichen)
- Int64(64 Bit, mit Vorzeichen)
- UInt64(64 Bit, ohne Vorzeichen)

Greetz Data

Edit: War wieder jemand schneller ....

[himitsu]

Zitat von Koolance:

Die Zahl ist zu groß für einen Integer, probier es mal mit einem Longint.

Delphi = 32 Bit, also Integer = LongInt

Zitat:

Verwende alternativ:
- Cardinal(32 Bit, ohne Vorzeichen)
- LongWord(32 Bit, ohne Vorzeichen)

Da die Zahl 111222333999, in der Zweierkomplementdarstellung 45 Bit ohne Vorzeichen und 46 Bit mit Vorzeiten belegt, sind auch Cardinal und LongWord ein bissl zu klein.

PS: Selbst in Single paßt diese Zahl nicht vollständig rein, auch wenn sie im Wertebereich des Single liegen mag, aber Aufgrund der Genauigkeit würden wohl die letzten 3-4 Dezimalstellen verfälscht sein.