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 von Saimen:

man darf auch nicht durch 1 teilen

Und wieso nicht?

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
[/add]

[add2]

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

[Sharky]

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

[alcaeus]

Zitat von Saimen:

Aber dann kommt drotzdem ein fehler

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.