Brauch den code für das geteilt beim Taschenrechner

[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;