Real-Wert in Integer umwandeln

|TF|Alucard · Beiträge: 43 XP

Hi,
wie kann ich einen Real-Wert in Integer umwandeln?

mfg |TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

Raphael O. · Beiträge: 1596 VS 2013

markieren

Delphi-Quelltext

1:
2:

round(realvar);
trunc(realvar);

(dabei wird gerundet... die nachkommastellen kann man natürlich nicht "mitnehmen")

|TF|Alucard · Beiträge: 43 XP

Vielen Dank. Aber was bedeutet 'trunc'?

mfg |TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

Raphael O. · Beiträge: 1596 VS 2013

trunc schneidet die nachkommastellen ab (abrunden quasi)

Ehemaliges Mitglied Erhaltene Danke: 1

|TF|Alucard hat folgendes geschrieben:

Vielen Dank. Aber was bedeutet 'trunc'?

*hüstel* Einmal mit der Maus drauf klicken, dann F1 und lesen was die Delphi-Hilfe so schreibt ...

|TF|Alucard · Beiträge: 43 XP

Entschuldigung, ABER Delphi zeigt da bei mir in der Hilfe nichts an bei 'tunc' :roll:

(ich habe Delphi 5)

|TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

|TF|Alucard · Beiträge: 43 XP

Also ich möchte die Menge des freien Speichers einer Festplatte mit Progressbar anzeigen. Aber warum funktioniert es nicht?

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var freeCaller, total, wert, ins : Int64;
begin
GetDiskFreeSpaceEx('d:\', freeCaller, total, nil);
ins:= total * 100;
Round(ins: Extended): Int64; {Hier wird der Fehler angezeigt}
wert:= ins / freeCaller;
progressbar1.position:= wert;
end;

Delphi-Hilfe

Zitat:

function Round(X: Extended): Int64;

Beschreibung

Round rundet einen Wert des Typ Real auf einen Integer-Wert.

X ist ein Ausdruck des Typs Real. Zurückgegeben wird ein Int64-Wert mit dem auf die nächste ganze Zahl gerundeten Wert von X. Liegt X genau in der Mitte zwischen zwei ganzen Zahlen, wird immer die gerade Zahl zurückgeliefert.

Liegt der gerundete Wert von X außerhalb des Int64-Wertebereichs, wird ein Laufzeitfehler ausgelöst, der mit einer EInvalidOp-Exception behandelt werden kann.

|TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

Raphael O. · Beiträge: 1596 VS 2013

round wird wie jede andere Funktion auch so aufgerufen:

markieren

Delphi-Quelltext

1:	round(parameter);

parameter ist in deinem Fall ins vom Typ extended (bzw real was du als gleich ansehen kannst) und gibt einen integerwert zurück...
in deinem fall solltest du es so aufrufen

markieren

Delphi-Quelltext

1:	wert:=round(ins/freecaller);

|TF|Alucard · Beiträge: 43 XP

Vielen Dank. Es funktioniert.

mfG |TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

Ehemaliges Mitglied Erhaltene Danke: 1

|TF|Alucard hat folgendes geschrieben:

Entschuldigung, ABER Delphi zeigt da bei mir in der Hilfe nichts an bei 'tunc' :roll:

(ich habe Delphi 5)

Nun ja, die Delphi Hilfe ist schon recht klever, nur eine automatische Rechtschreibkorrektur hat sie noch nicht. Es heißt trunc.

|TF|Alucard · Beiträge: 43 XP

Oh, das 'r' hab ich wohl überlesen :oops:

; auf jeden Fall der Befehl 'round' funktioniert einwandfrei.

mfG |TF|Alucard

_________________
Ich weiß nicht mit welchen Waffen der 3. Weltkrieg geführt wird, aber im 4. werden es Stöcke und Steine sein. [Albert Einstein]

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme