Thema: Delphi If Abfrage

Einzelnen Beitrag anzeigen

Schnittcher

Registriert seit: 25. Aug 2009
Ort: Blomberg
120 Beiträge
 
#17

Re: If Abfrage

  Alt 9. Sep 2009, 11:56
Hallo,

mehr gibt es ja nicht.

Das mit dem case finde ich auch gut.

Das schaue ich mir mal an. Danke.

so eine Frage noch:

Delphi-Quellcode:
  if FRunden = FRundenEingabe then
  ShowMessage(Format('Sie haben %d Punkte erreicht!',[punkte]))
  else
  begin
  SpielerZahlen[0] := StrToInt(edZahl1.Text);
  SpielerZahlen[1] := StrToInt(edZahl2.Text);
  SpielerZahlen[2] := StrToInt(edZahl3.Text);
  Zahlen := TBackupClassesFactory.Zahlen;
  Zahlen.SpielerZahl := SpielerZahlen;
  Zahlen.set_ComputerZahlen;
  Zahlen.vergleichen;
  lbAussage.Caption := Zahlen.VergleichePunkteAlt;
  FPunkte := FPunkte + Zahlen.HolePunkte;
  Zahlen.get_Punkte(FPunkte);
  lbPunkte.Caption := IntToStr(Zahlen.HolePunkte);
  end;
Sieht jemand hier einen Fehler?

Fehler ist im Anhang.

Gruß,
Schnittcher
Miniaturansicht angehängter Grafiken
fehler_491.jpg  
  Mit Zitat antworten Zitat