Problem mit + - * /

XPert · Beiträge: 129 Windows 98/00/Me/XP D6 Pers

Ich hab da so ein ziemlich doofes anfängerproblem:
was ist an dem fogenden code falsch?:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: Integer;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
If RadioButton1.Checked=True Then a + b := c;
If RadioButton2.Checked=True Then a - b := c;
If RadioButton3.Checked=True Then a * b := c;
If RadioButton4.Checked=True Then a / b := c;
Edit3.Text:= IntToStr(c);
end;

Ich hiffe auf antwort! *verzweifeltsei*

_________________
MfG Fabian Schweers :lol:

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Hi,

wir wäre es denn damit:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: Integer;
begin
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  If RadioButton1.Checked=True Then c := a + b;
  If RadioButton2.Checked=True Then c := a - b;
  If RadioButton3.Checked=True Then c := a * b;
  If RadioButton4.Checked=True Then c := a div b;
  Edit3.Text:= IntToStr(c);
end;

Der Wert auf rechten Seite einer Zuweisung wird immer der linken zugewiesen und nicht umgekehrt. Wenn du mit Ganzzahlen-Variablen hantierst kannste Divisionen mit dem Div-Operator durchführen.

Ich hoffe, das hilft dir.

_________________
Viele Grüße
Jakob

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme