Operatoren????

[Chegga]

Hi,

Ich habe hier etwas, dass dir wahrscheinlich helfen wird:

Delphi-Quellcode:

var
  Form1: TForm1;
  Zahl1, Zahl2, Ergebnis: Integer;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zahl1 := StrToInt(Edit1.Text);
  Zahl2 := StrToInt(Edit2.Text);
  Ergebnis := Zahl1 + Zahl2;
  Label1.Caption := 'Ergebnis der Addition: ' + IntToStr(Ergebnis);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Zahl1 := StrToInt(Edit1.Text);
  Zahl2 := StrToInt(Edit2.Text);
  Ergebnis := Zahl1 - Zahl2;
  Label1.Caption := 'Ergebnis der Subtraktion: ' + IntToStr(Ergebnis);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Zahl1 := StrToInt(Edit1.Text);
  Zahl2 := StrToInt(Edit2.Text);
  Ergebnis := Zahl1 div Zahl2;
  Label1.Caption := 'Ergebnis der Division: ' + IntToStr(Ergebnis);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Zahl1 := StrToInt(Edit1.Text);
  Zahl2 := StrToInt(Edit2.Text);
  Ergebnis := Zahl1 * Zahl2;
  Label1.Caption := 'Ergebnis der Multiplikation: ' + IntToStr(Ergebnis);
end;

end.

Wenn du etwas nicht verstehst, dann antwórte einfach!

MfG Marc