[Gelöst] Ein Fehler bei der CASE Funktion..

[LordBukkit]

Hallo.
Ich noch ein blutiger Anfänger in Lazarus, und deshalb habe ich eine kleine Frage.
Ich habe ein Programm geschrieben, das in etwa so wie das Spiel "Mastermind" funktioniert:
Man wählt eine Farbe aus (bei mir sind es 3 verschiedene) und dann wird mit der random Funktion eine Farbe geniert.
Falls man die richtige Farbe geraten hat, soll ein Fenster erscheinen mit der Schrift, dass es richtig ist, und wenn man falsch geraten hat,
dann soll selbstverständlich eine Nachricht erscheinen, mit der Schrift, dass man falsch geraten hat.
Und genau an dem Punkt, dass das Programm überprüft, ob man richtig oder falsch gelegen hat, komme ich nicht weiter.
Meine Idee war diese hier:

Code: Alles auswählen

 
procedure TForm1.ErgebnisBitBtnClick(Sender: TObject);
  begin
  case Farbe of
  shape1.Brush.Color = clBlue,shape2.Brush.Color = clBlue:
    begin
         ShowMessage ('Diese Kombination ist richtig');
    end;
  otherwise
    begin
         ShowMessage ('Diese Kombinatoin ist falsch');
    end;
  end;
end;

"Shape1" ist die random generierte Farbe, und "Shape2" steht für die selbst ausgewählte Farbe.
Aber diese scheint wohl nicht zu funktionieren. Ich wollte es erst mit einer IF Schleife lösen, habe es allerdings nicht hinbekommen. Aus diesen Grund habe ich es mit der CASE Funktion versucht, es leider aber auch nicht geschafft. Habe ich mit dem Code einen Fehler gemacht, oder muss man das auf eine ganz andere Weise lösen?
Danke schonmal für eure Hilfe.

LG
LordBukkit

[Namos]

So vielleicht ?

Code: Alles auswählen

 
procedure TForm1.ErgebnisBitBtnClick(Sender: TObject);
begin
  if (shape1.Brush.Color = clBlue) and (shape2.Brush.Color = clBlue) and (Farbe = clBlue) then
  begin
    ShowMessage ('Diese Kombination ist richtig');
  end
  else
  begin
    ShowMessage ('Diese Kombinatoin ist falsch');
  end;
end;
  

oder so
 

Code: Alles auswählen

 
procedure TForm1.ErgebnisBitBtnClick(Sender: TObject);
begin
  case Farbe of
    clBlue:
      if (shape1.Brush.Color = clBlue) and (shape2.Brush.Color = clBlue) then
            ShowMessage ('Diese Kombination ist richtig');
    else
      ShowMessage ('Diese Kombinatoin ist falsch');
  end;
end;
 

Für die Case Anweisung können nur Ordinale (Ganzzahlige) Datentypen und String Datentypen verwendet werden.
Hier mal das Wiki zur Case Anweisung: http://wiki.freepascal.org/Case/de

[grl]

Also, ich denk da jetzt vielleicht ein bischen zu einfach - aber willst du nicht einfach die gewählte Farbe mit der zufälligen Farbe vergleichen? Was ist denn dann die Variable Farbe?

Denn wenn' nur um das Vergleichen der Farbe geht sollte da wohl stehen:

Code: Alles auswählen

 
procedure TForm1.ErgebnisBitBtnClick(Sender: TObject);
begin
  if shape1.Brush.Color = shape2.Brush.Color then
  begin
    ShowMessage ('Diese Kombination ist richtig');
  end
  else
  begin
    ShowMessage ('Diese Kombinatoin ist falsch');
  end;
end;
 

Ein Case macht da irgendwie keinen Sinn - das ist für den vergleich von einem Wert mit mehreren anderen. Das könnte z.B. so aussehen:

Code: Alles auswählen

 
procedure TForm1.ErgebnisBitBtnClick(Sender: TObject);
begin
  case shape1.Brush.Color of
    clBlue: ShowMessage ('Die Farbe ist blau');
    clRed: ShowMessage ('Die Farbe ist rot');
    clYellow: ShowMessage ('Die Farbe ist gelb');
  else
     ShowMessage ('Die Farbe wurde nicht erkannt');
  end;
end;
 

Gruß
Luggi

Luggi

[Soner]

Hier sind gute Infos für Case und andere Fallunterscheidungsfunktionen:
http://www.marcocantu.com/epascal/German/ch05statde.htm
http://www.freepascal.org/docs-html/ref ... 300013.2.2

[LordBukkit]

Alles klar, danke Leute