Brauch den code für das geteilt beim Taschenrechner

[alcaeus]

Alternativ kannst dus auch mit einem try-except-Block lösen:

Delphi-Quellcode:

try
  SpinEdit3.Value:=SpinEdit1.Value div SpinEdit2.Value;
except
  MessageDlg('Ungültiger Wert!', mtError, [mbOk], 0);
end;

Greetz
alcaeus

PS: Beim testen die Delphi-Exceptions in den Debugger-Optionen ausschalten, andernfalls kommt die Exceptionmeldung immer noch.

[add]

Zitat:

Zitat von Saimen

man darf auch nicht durch 1 teilen :wink:

Und wieso nicht?

Zitat:

Zitat von Saimen

und auserdem wieso mach irgendwas?

Weil er zu faul war nachzusehen, was du machen willst und der Code als Beispiel gedacht war :roll:
[/add]

[add2]

Zitat:

Zitat von Saimen

Ich hab jetzt ehrlich gesagt kein wort verstanden

Wovon hast du kein Wort verstanden?
[/add2]

[Saimen]

Ich hab jetzt ehrlich gesagt kein wort verstanden :pale: :oops:

[Sharky]

Zitat:

Zitat von Saimen

man darf auch nicht durch 1 teilen....

Seit wann darf man nicht durch 1 teilen?

Delphi-Quellcode:

begin
  if (SpinEdit2.Value=0) then
  begin
    ShowMessage ('Division durch 0');
  end
  else
  begin
    SpinEdit3.Value:=SpinEdit1.Value div SpinEdit2.Value
  end;
end;

[Saimen]

was soll der un terste code?

[tHeRiAn]

Hi Seimen,

sorry war wohl zu schnell,

ok, du sagtest du willst die Eingabe durch 1 und 0 verhindern. Das kannst du durch eine Abfrage lösen wie:

Delphi-Quellcode:

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

Die Neu Form kannst du so erzeugen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  meineForm: TForm1;
begin
  meineform := TForm1.Create(nil);
  meineForm.Show;

end;

[Saimen]

Aber dann kommt drotzdem ein fehler :roll:

[alcaeus]

Zitat:

Zitat von Saimen

Aber dann kommt drotzdem ein fehler :roll:

Wie wärs wenn du uns BITTE mal sagen würdest, WELCHER Fehler denn Auftritt :?:

Greetz
alcaeus

[Saimen]

Da steht Division durch null
und in der unit wird die zeile
SpinEdit3.Value:=SpinEdit1.Value div SpinEdit2.Value;

blau markiert

[alcaeus]

In diesem Fall, poste mal die if-Abfrage, mit der du gegen eine Division durch 0 schützt. Die bereits geposteten Codes sollten diesen Fehler allerdings verhindern!

Greetz
alcaeus

[Sharky]

Welches der Beispiele vervendest Du denn jetzt? Zeige mal etwas mehr Code.