Problem mit IF

/Domi · Hält's aus hier Beiträge: 6

Hi ich hab ein kleines Problem mit der If Strucktur ( ich hoffe das heist auch strucktur)

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

If Zufall =1 then begin
if RadioButton2.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
 end
else
Showmessage ('Falsch!!!')  ;
Falsch:=Falsch+1;
end;


If Zufall=2 then
If Radiobutton1.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
end
else
Falsch:=Falsch+1;
showmessage ('Falsch!!!');

Ich will das :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if RadioButton2.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
 end
else
Showmessage ('Falsch!!!')  ;
Falsch:=Falsch+1;
end;

nur dann dran kommt wenn die Erste Zeile also :

markieren

Delphi-Quelltext

1:	If Zufall =1 then begin

zutrifft

eben so beim 2.

MFG Domi

Moderiert von Klabautermann: Quote- durch Delphi-Tags ersetzt & weiter Delphi-Tags eingefügt.

elundril · Verfasst: Do 19.11.09 20:12

dann solltest ein else reinhauen. also:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  if zufall = 1 then begin
    {Das ganze Zeug halt}
  end
  else if zufall = 2 then begin
    {Das andere Zeug halt}
  end;

ich würde dir gern Christian's Crashkurs und das Wikibook:Delphi empfehlen.

Außerdem solltest du die Delphi-Tags hier im forum verwenden ([delphi]dein Quelltext hier drin[/delphi]), bringt mehr übersicht.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

/Domi · Hält's aus hier Beiträge: 6

ok ich kucks mir mal an

das mit els wird glaube ich nicht funktionieren weil ich vor hab das zu erweiter und nicht bei 2 zu belassen

elundril · Verfasst: Do 19.11.09 20:20

dann kannst du auch wieder ein else einbauen.

das kannst du zu jedem if einsetzen. also:

markieren

Delphi-Quelltext

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

  if zufall =1 then
    //some stuff
  else if zufall = 2 then
    //some stuff
  else if zufall = 3 then
    //some stuff
  else {...}

  {...}else if zufall = n then
    //some stuff
  else      //letztes else ohne if danach tritt ein wenn kein if vorher erfüllt wurde.
    //some stuff

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Marc. · Verfasst: Do 19.11.09 20:20

Wofür überhaupt solch eine komplizierte If-Struktur?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  b: Boolean;
  r: Integer;
...
  r := Random(2)+1;
  b := (r = 1) and RadioButton1.Checked or (r = 2) and RadioButton2.Checked;

  if b then ...

Grüße,
Marc.

/Domi · Hält's aus hier Beiträge: 6

Ich benutze die If strucktur weil ich von programmieren nocht nicht wirklich viel ahnung habe.
Die Antwort von Marc ist mir leider noch ein bischen zu hoch
aber mit der von elundril kann ich was anfangen.

Ich tests gerade mal aus . schon mal danke euch beiden.

/Domi · Hält's aus hier Beiträge: 6

Ok habs hin beckommen

THX

FinnO · Verfasst: Do 19.11.09 21:27

elundril hat folgendes geschrieben :

markieren

Delphi-Quelltext

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

  if zufall =1 then
    //some stuff
  else if zufall = 2 then
    //some stuff
  else if zufall = 3 then
    //some stuff
  else {...}

  {...}else if zufall = n then
    //some stuff
  else      //letztes else ohne if danach tritt ein wenn kein if vorher erfüllt wurde.
    //some stuff

schonmal was von case of gehört?

elundril · Verfasst: Do 19.11.09 22:09

Hab ich, jedoch war seine frage auf ifs bezogen.

und case kann man nur bei zahlen oder bei chars verwenden. If-Then-Else-Konstrukte kann man auch bei String und so verwenden. Demnach sollte man erstmal die Grundlagen von if-then-else können und dann erst case, gelleja?

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme