Moin icke!
Gratuliere!
. Du hast verschiedene Datentypen durcheinander gebracht.
Zitat von
icke:
Code:
...
var
gesamt: real;
restmin, restsec: integer;
...
restmin:=FloatToStr(Gesamt div 60);
restsec:=FloatToStr(Gesamt mod 60);
end;
...
Hier versuchst du das Resultat der
mod und
div (die eine Integer-Zahl zurückliefern) mit Hilfe der Funktion FloatToStr (die eigentlich eine Gleitkommazahl erwartet) in Strings zu umwandeln und danach in Integer-Variable zu packen. Das kann nicht funktionieren!
Versuch etwa so:
Delphi-Quellcode:
var
restmin, restsec, gesamt: integer;
...
restmin:= Gesamt div 60; // das ist korrekt
restsec:= Gesamt mod 60; // und das auch
...
Wenn du noch die restmin und restsec in Form eines Strings ausgeben möchtest, musst du noch String-Variablen definieren. Dann geht auch die Funktion „IntToStr“ (bzw. FloatToStr - das wäre unsauber):
Delphi-Quellcode:
var
restmin , restsec, gesamt: integer;
restmin_char , restsec_char: string;
...
restmin:= Gesamt div 60;
restsec:= Gesamt mod 60;
restmin_char := IntToStr(restmin);
restsec_char := IntToStr(restsec);
...
oder gleich so:
Delphi-Quellcode:
var
gesamt: integer;
restmin_char , restsec_char: string;
...
restmin_char := IntToStr(Gesamt div 60;);
restsec_char := IntToStr(Gesamt mod 60);
...
Viele Grüße
Markus
