Brauch den code für das geteilt beim Taschenrechner

[Saimen]

if (SpinEdit2.Value <> 1) and (SpinEdit2.Value <> 0) then begin
SpinEdit3.Value := SpinEdit1.Value div SpinEdit2.Value

[supermuckl]

da muss ein OR dazwischen und kein AND

// kommando zurück

[alcaeus]

Nein, das AND passt. Er will ja nur dividieren, wenn der SpinEdit2.Value nicht 0 und nicht 1 ist (aus welchem Grund auch immer er 1 verbieten will )
Deshalb hat sich hier keiner gemeldet, ich denke mal der Fehler liegt woanders, denn der Code stimmt so.

Greetz
alcaeus

[Ultimator]

Vermutlich will er die 1 verbieten, damit keiner auf die Idee kommt, eine Zahl durch 1 zu teilen, und so den gleichen Wet zu erhalten.

[Die Muhkuh]

Hi,

der Code von Saimen kann so nicht gehen!

Wie kann SpinEdit2 2 Werte haben?

Schreibs mal so:

Delphi-Quellcode:

if ((SpinEdit2.Value <> 0) and (SpinEdit3.Value <> 0)) or ((SpinEdit2.Value <> 1) and (SpindEdit3.Value <> 1)) then
begin
  ...
end;

[alcaeus]

Zitat von Saimen:

if (SpinEdit2.Value <> 1) and (SpinEdit2.Value <> 0) then begin
SpinEdit3.Value := SpinEdit1.Value div SpinEdit2.Value

Also, wenn der Wert in SpinEdit2 nicht 1 und nicht 0 ist, dann soll gerechnet werden. Ich verstehe nicht, was hier das Problem ist...

Greetz
alcaeus

[add]
Als Alternative:

Delphi-Quellcode:

if not ((SpinEdit2.Value = 1) or (SpinEdit2.Value = 0)) then
Exit;
SpinEdit3.Value := SpinEdit1.Value div SpinEdit2.Value

[/add]

[Die Muhkuh]

@alceus


ich versteh das so:

//Falsch! Pfui.



Deine Alternative geht nicht? Bei Exit wird ja die Procedure verlassen, demnach wird nicht weitergemacht.



[edit] Upsi, ich hab immer mit = gedacht... [/edit]