DIV und MOD

[MarkusB]

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