If Abfrage

[Schnittcher]

Hallo,

ich habe noch eine Frage zu der If Abfrage.

Delphi-Quellcode:

procedure TZahlen.get_Punkte(const Punkte: Integer);
begin
  FPunkte := Punkte;
end;

function TZahlen.vergleichen: string;
begin
  if FSpielerZahl1 = FComputerZahl1 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;
  if FSpielerZahl2 = FComputerZahl2 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;
  if FSpielerZahl3 = FComputerZahl3 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;

end;

So sieht es jetzt aus und ich möchte eine Ausageb haben wenn keine der Abfragen stimmt.
Dann soll die Meldung "Sie haben verloren!" kommen.

Gruß,
Schnittcher

[Forlan]

Stichwort: else

...

Evtl. solltest du dir mal die Delphi Tutorials anschauen. Denn eine "if" "then" "else" Abfrage ist nun wirklich Basiswissen ;)

[XXcD]

Versuchs ungefähr so:

Delphi-Quellcode:

procedure TZahlen.get_Punkte(const Punkte: Integer); 
begin 
  FPunkte := Punkte; 
end; 

function TZahlen.vergleichen: string; 
begin 
 if (FSpielerZahl1 = FComputerZahl1) or (FSpielerZahl2 = FComputerZahl2) or (FSpielerZahl3 = FComputerZahl3) then
 begin
  if FSpielerZahl1 = FComputerZahl1 then 
  begin 
    FPunkte := FPunkte + 1; 
    Result := 'Sie haben gewonnen!' 
  end; 
  if FSpielerZahl2 = FComputerZahl2 then 
  begin 
    FPunkte := FPunkte + 1; 
    Result := 'Sie haben gewonnen!' 
  end; 
  if FSpielerZahl3 = FComputerZahl3 then 
  begin 
    FPunkte := FPunkte + 1; 
    Result := 'Sie haben gewonnen!' 
  end; 
 end
 else
 begin
 Result := 'Sie haben verloren!'
 end;
end;

[Schnittcher]

Hallo,

das ist klar, aber geht das denn jetzt?
Weil ich 3 verschiedene Abfragen habe.

Gruß,
Schnittcher

[Forlan]

Zitat:

Zitat von Schnittcher

Hallo,

das ist klar, aber geht das denn jetzt?
Weil ich 3 verschiedene Abfragen habe.

Gruß,
Schnittcher

So wie es XXcD gemacht hat. Einfach das ganze mit einem Begin End block "umklammern" ;)

[Satty67]

oder so (ungetestet):

Delphi-Quellcode:

if (FSpielerZahl1 = FComputerZahl1)
or (FSpielerZahl2 = FComputerZahl2)
or (FSpielerZahl3 = FComputerZahl3) then
begin
  FPunkte := FPunkte + 1;
  Result := 'Sie haben gewonnen!'
end
else
begin
  Result := 'Sie haben verloren!'
end;

€: OK, sehe gerade das es mehrmals Punkte gibt, nicht nur einmal...

[Sharky]

Hai,

warum nicht einfach die "ausnahme" als Vorgabewert?

Delphi-Quellcode:

function TZahlen.vergleichen: string;
begin
  Result := 'Sie haben verloren';
  if FSpielerZahl1 = FComputerZahl1 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;
  if FSpielerZahl2 = FComputerZahl2 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;
  if FSpielerZahl3 = FComputerZahl3 then
  begin
    FPunkte := FPunkte + 1;
    Result := 'Sie haben gewonnen!'
  end;

end;

[Forlan]

[OT] Ihr glaubt garnicht wie froh ich war mal "If Abfrage" im Titel zu lesen anstatt "If Schleife" :mrgreen: [/OT]

[Schnittcher]

Hallo,

alles klar danke für die schnellen Antworten.

Eine Frage jetzt noch wenn ich sagen will "Sie haben 2 Zahlen richtig erraten!"

Das ich prüfe ob FPunkte zum Beispiel um 1 größer geworden ist oder um 2 oder um 3?

Und wenn größer um 2 dann: "Sie haben " Zahlen richtig erraten!"

Kann man das so machen?

Gruß,
Schnittcher

[Satty67]

wenn Du die Anzahl der erratenen Punkte in einer Integer-variable hast (z.B. points), kannst Du einen String mit Format bilden:

ShowMessage(Format('Sie haben %d Zahlen richtig erraten!',[Points]));