Hallo Zusammen ich habe ein Problem mit diesem Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
| procedure TForm3.Button2Click(Sender: TObject);
begin
If Radiobutton1.checked and Radiobutton3.Checked or Radiobutton4.Checked or Radiobutton5.Checked or Radiobutton6.checked then
begin
Panel1.Caption:= FloattoStr(random(10));
Panel2.Caption:= FloattoStr(random(10));
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
a,b,ergebnis,ergebnis4:extended;
begin
If Radiobutton1.checked or Radiobutton2.checked or Radiobutton7.checked or Radiobutton8.checked and Radiobutton3.Checked then
begin
a:= StrtoFloat(Panel1.Caption);
b:= StrtoFloat(Panel2.Caption);
ergebnis:= a+b;
IF Edit1.Text= Floattostr(ergebnis) then Showmessage('Gut') else
Showmessage('Falsch');
end;
If Radiobutton1.checked or Radiobutton2.checked or Radiobutton7.checked or Radiobutton8.checked and Radiobutton4.Checked then
begin
a:= StrtoFloat(Panel1.Caption);
b:= StrtoFloat(Panel2.Caption);
ergebnis:= a-b;
IF Edit1.Text= Floattostr(ergebnis) then Showmessage('Gut') else
Showmessage('Falsch');
end;
If Radiobutton1.checked or Radiobutton2.checked or Radiobutton7.checked or Radiobutton8.checked and Radiobutton5.Checked then
begin
a:= StrtoFloat(Panel1.Caption);
b:= StrtoFloat(Panel2.Caption);
ergebnis:= a*b;
IF Edit1.Text= Floattostr(ergebnis) then Showmessage('Gut') else
Showmessage('Falsch');
end;
end;
end. |
Wenn Ich Radiobutton 1 und 5 Markiert habe und dann das Richtige Resultat Eingebe kommt immer
Falsch , Falsch und dann erst gut wen ich Radiobutton 1 und 3 Markiert habe kommt immer Gut Falsch Falsch
