Delphi TNumberbox gibt single zurück; Wie komme ich zu einer Standard-Ganzzahl?

Question

TNumberbox- und TSpinEdit-Rückgabewerte definiert als Typ single. Ich möchte diese Werte verwenden, um einfache Integer-Arithmetik durchzuführen, aber ich kann sie nicht erfolgreich in den verallgemeinerten Integer-Typ umwandeln, und Delphi gibt mir Kompilierungsfehler, wenn ich versuche, sie einfach als Ganzzahlen zu verwenden. Dieser Code zum Beispiel nicht mit

"E2010 Inkompatible Typen: 'Int64' und 'Erweitert'":

var 
    sMinutes: single; 
    T: TDatetime; 
begin 
sMinutes :=Numberbox1.value; 
T :=incminute(Now,sMinutes); 

---

Alles, was ich hier tun möchte, ist der Benutzer geben Sie mir eine Anzahl von Minuten und erhöhen Sie dann einen Datetime-Wert entsprechend. Nichts, was ich versucht habe, ermöglicht es mir, diese Single auf diese Weise zu verwenden.

Was vermisse ich?

Answer 1

gestutzt einfach den Wert vor der Verwendung:

var 
    Minutes: Integer; 
    T: TDateTime; 
begin 
    Minutes := Trunc(NumberBox1.Value); 
    T := IncMinute(Now, Minutes); 
end; 

Je nach Ihren speziellen Bedürfnissen, müssen Sie möglicherweise Round stattdessen verwenden. Es wird korrekt auf den nächsten ganzzahligen Wert gerundet, wobei sichergestellt wird, dass 1.999999999999 korrekt zu Integer 2 wird; Trunc würde stattdessen 1 ergeben. (Danke an Heartware für diese Erinnerung.)

var 
    Minutes: Integer; 
    T: TDateTime; 
begin 
    Minutes := Round(NumberBox1.Value); 
    T := IncMinute(Now, Minutes); 
end; 

Trunc und Round sind in der System Einheit.