Die das letzte Quotient-Funktion entspricht etwa meiner ... nur etwas gekürzt
summe scheint schonmal richtig zu laufen
Und kann es sein, daß zugfällig diese Meldung angezeigt wird?
Denn dieses sollte immer "wahr" / True melden und auslösen, da hier A immer <> B ist.
Delphi-Quellcode:
//zwei gleiche Zahlen:
if a=b
then result:='0'
else
//a>b?
if (vergleich(a,b)<>0 )and(a<>b)
then
begin
showmessage('Subtraktion nicht möglich.');
exit;
end
//a>b? <>
(vergleich(a,b)<>0 )and(a<>b)
Ich vermute mal du wolltes da ein > und nicht <> verwenden.
obwohl es bei dir eigentlich < sein müßte ... a<b, da dann ein negatives Ergebnis rauskommen täte.
Und warum einmal Stringvergleich und zusätzlich per Funktion?
Mein Tipp: einen Breakpoint setzen und dann intensive Nutzung der Taste F7
