DIV und MOD

[icke]

Hallo
Ich kann die DIV und MOD Befehle nicht verwenden! Ich hab Delphi 3

Code:

restmin:=FloatToStr(Gesamt)div 60;
restsec:=FloatToStr(Gesamt)mod 60;

Fehler: Inkompatible Typen: 'String' und 'Integer'.

Danke im Vorraus

[mirage228]

Hi,

natürlich kannst Du das nicht!

Der Ausdruck:
FloatToStr(Gesamt) gibt einen String zurück. Auf diesen kannst Du den Divisions bzw. den Modulo Operator nicht anwenden.

Du müsstest das z.B. so schreiben
FloatToStr(Gesamt div 60) // oder mod 60 mfG
mirage228

[Dax]

Erstens: div und mod sind Integer-Befehle, können also nur mit Integer-TYpen etwas anfange.

Zweitens: FloatToStr gibt einen String zurück, mit Strings kannst du nicht rechen.

Drittens: In der OH sind nette Beispiele, und kuck mal nach DivMod

[Sharky]

Zitat von Dax:

..., und kuck mal nach DivMod

Wobei bei DivMod auf die Grenzen zu achten sind (16Bit Integer);

[Dax]

Alternativ das hier benutzen

Delphi-Quellcode:

procedure DivModEx(Dividend, Divisor: Integer; var Result, Remainder: Integer); overload;
begin
  Result := Dividend div Divisor;
  Remainder := Dividend mod Divisor;
end;

procedure DivModEx(Dividend, Divisor: Extended; var Result, Remainder: Extended); overload;
var Temp: Extended;
begin
  Temp := Dividend / Divisor;
  Result := Int(Temp);
  Remainder := Frac(Temp) * Divisor;
end;

[icke]

1. Wo finde ich die Hilfe DivMod??
2. ich habe die Variabeln 'restmin' und 'restsec' auf integer gesetzt.

--> Fehler: Inkompatible Typen: 'String' und 'Integer'

Kann mir jemand auf normalem Deutsch (-> kein Fachchinesisch) erklären, warum es nicht funktioniert und den Weg zur Lösung bitte erklären??

Danke

[MathiasSimmack]

Zitat von icke:

1. Wo finde ich die Hilfe DivMod??

Den Befehl findest du evtl. in der Delphi-Hilfe. Aber ob schon bei Delphi 3?

Zitat:

2. ich habe die Variabeln 'restmin' und 'restsec' auf integer gesetzt.

--> Fehler: Inkompatible Typen: 'String' und 'Integer'

Kann mir jemand auf normalem Deutsch (-> kein Fachchinesisch) erklären, warum es nicht funktioniert und den Weg zur Lösung bitte erklären??

Hat mirage doch weiter oben schon getan.

[Sharky]

Mirage hat es doch eigentlich gut erklärt. Aber ich versuche es nocheinmal auf einem anderen Weg

Delphi-Quellcode:

var
  str_restmin : String;
  str_restsec : String;
  int_restmin : Integer;
  int_restsec : Integer;
begin
  str_restmin := FloatToStr(Gesamt);
  int_restmin := str_restmin DIV 60;  // Diese beiden Zeilen entsprechen: restmin := FloatToStr(gesamt) DIV 60

  str_restsec := FloatToStr(Gesamt);
  int_restsec := str_restmin MOD 60;

end;

Dies ist genau das was Du in deinem ersten Posting geschrieben hast. Nur das ich noch Hilfsvariabeln einfüge.
Wie Du siehst liefert FloatToStr() als Ergebniss einen String. Und diesen Versuchst Du zu dividieren was natürlich nicht gehen kann!

[icke]

Danke für deine Antwort

Ich habe jetzt diesen Ausdruck eingegeben!

Code:

restmin:=FloatToStr(Gesamt div 60);
restsec:=FloatToStr(Gesamt mod 60);

Der Fehler: Operator ist auf diesen Operatortyp nicht anwendbar

Die Hilfe von Delphi 3 sagt:

Zitat:

st der Typ eines Operanden ein Teilbereich eines ordinalen Typs, wird der Operand behandelt, als ob er von einem ordinalen Typ wäre.
Sind beide Operanden der Operatoren +, -, *, div oder mod von einem Integer-Typ, ist der Typ des Ergebnisses der gemeinsame Typ der beiden Operanden. Eine Definition gemeinsamer Typen finden unter Gemeinsamer Typen.
Ist der Operand des positiven oder negativen Vorzeichens von einem Integer-Typ, ist das Ergebnis vom selben Integer-Typ. Ist der Operator von einem Real-Typ, ist der Ergebnistyp Extended.

Der Wert von X/Y ist unabhängig vom Typ der Operanden immer vom Typ Extended. Falls Y den Wert 0 hat, tritt ein Laufzeitfehler auf.
Der Wert von I div J ist der abgerundete mathematische Quotient von I/J. Falls J den Wert 0 hat, tritt ein Laufzeitfehler auf.
Der Operator mod gibt den Rest zurück, der sich aus der Division der beiden Operanden ergibt:

I mod J = I - (I div J) * J

Das Ergebnis von mod hat dasselbe Vorzeichen wie I. Hat J den Wert 0, tritt ein Laufzeitfehler auf.

[Sharky]

Zitat von icke:

...Der Fehler: Operator ist auf diesen Operatortyp nicht anwendbar...

Wie hast Du denn die Variable gesamt deklariert?