FormCreate(Sender); - undefinierter Bezeichner?

[AlexII]

Oh man... da verstehe ich nur Bahnhof. Ich bin Anfänger und hab diesen Code aus diesem Forum geholt, allerdings schon sehr verändert.
Wer die Frage nach dem neuen Spiel wahrscheinlich in den OnClick der Buttons legen.

[AlexII]

Ok Jungs ich hab's anders gemacht und sehr sauber

Hab folgendes geändert:

Delphi-Quellcode:

procedure TForm1.ShowResults;
begin
  ShowMessage('Das Quiz ist vorbei.'#13#10'Richtig: '+IntToStr(FiCountCorrect)+#13#10'Falsch: '+IntToStr(FiCountError));
  FiCountCorrect  := 0;
  FiCountError    := 0;
  FiCountQuestion := 0;
  FiCountTries    := 2;
  if Application.MessageBox('Neues Spiel anfangen?','Frage',36) = 7 then Close;
  NextQuestion;
end;

Ist doch wunderbar, oder?

Danke für die Hilfe.

[Prototypjack]

Moin,

Hast du schon einmal ein neues Spiel gestartet, denn ich bezweifle, dass das funktioniert. Du rufst Close; auf. Damit schließt du die Form (und wenn es die HauptForm = MainForm ist, dann damit auch die komplette Applikation).

Grüße,
Max

Edit: OK, mein Fehler. 7 steht für "Nein" (deshalb sind Konstanten dein Freund ). Jetzt ist es wohl etwas sauberer, dennoch könnte man es eleganter lösen

[AlexII]

Ne wieso, Close; wird aufgerufen wenn man auf Nein klickt, das Spiel bzw. das Programm wird somit geschloßen. Wenn User auf Ja klickt gehts zu NextQuestion.

[AlexII]

Zitat von Prototypjack:

Edit: OK, mein Fehler. 7 steht für "Nein" (deshalb sind Konstanten dein Freund ). Jetzt ist es wohl etwas sauberer, dennoch könnte man es eleganter lösen

Genau

Und wie sieht es eleganter aus?

[Medium]

Man könnte z.B. statt der nichtssagenden Zahl 7 die dafür vorgesehene Konstante nutzen. Da hast du es dir allerdings unbewusst etwas schwieriger gemacht, weil du Application.MessageBox() benutzt, welches in sich die MessageBox-Funktion der user32.dll aufruft, und die Rückgabewerte stehen, wie bei Win-API Dingen üblich, nicht direkt so in der Delphi-Hilfe, sondern müssten im msdn nachgeschlagen werden. In diesem Fall gibt es die Konstante "IDNO" welche für diesen Fall gedacht ist (und oh wunder, 7 ist).
Die VCL-Variante heisst MessageDlg() und findet sich in der Unit Dialogs.pas. Auch dort gibt es einen Enum-Type der die möglichen Rückgabewerte bezeichnet. Da dort im Grunde nur ein neues Formular erzeugt und modal angezeigt wird, gelten hier die ModalResult Konstanten, im Falle eines Klicks auf [Nein] wäre dies dann "mrNo". DAS wäre der konsequente Weg in einer VCL Anwendung.

Auch ist es etwas unschön, dass du noch Code hinter dem möglichen Close() hast. Den solltest du in einen else-Zweig der Abfrage davor packen, damit besser ersichtlich ist, dass das nur dann noch ausgeführt wird, wenn Close() nicht statt fand. Funktional ändert das zwar nichts, aber es ging ja um Eleganz. Es gehört generell zum "guten Ton" Code hinter einem Close, Exit, Continue usw. in einen alternativen Konditional-Zweig zu packen, da man sich sonst wieder der verpönten "Goto-Mentalität" annähert, und es einfach den Lesefluss erleichtert wenn man den Code durchgeht (besonders wenn man nicht selbst der Autor ist, oder man sich den Code nach 3 Jahren mal wieder anschaut).

[hamburcher]

Statt
if Application.MessageBox('Neues Spiel anfangen?','Frage',36) = 7 then Close; besser
if MessageBox(Handle,'Neues Spiel anfangen?','Frage',mb_YesNo or mb_IconQuestion or mb_DefButton1) = id_NO then Close; Statt "Handle" kannst Du auch eine Null ("0") schreiben.

Klick mal in Delphi (nicht hier) auf das Wort "MessageBox" und drück dann [F1]

Edith meint, daß "Medium" oben mit erhobenem Zeigefinger nur mehrwertlos herumschwafelt

[AlexII]

Na wenn ich fertig bin, dann könnt ihr vllt ein Auge drüber werfen und gucken was sich besser machen lässt.

[xZise]

Hallo AlexII,

Außerdem hast du bei „procedure TForm1.ShowResults;“ das Problem, dass du da was miteinander vermischst.

Ich würde einfach noch eine Prozedur anlegen: „StartGame“ die in „FormCreate“ aufgerufen wird, und in ShowResults, sofern nicht Nein angeklickt würde. Das wäre imho eleganter

Delphi-Quellcode:

procedure TForm1.ShowResults;
begin
  ShowMessage('Das Quiz ist vorbei.'#13#10'Richtig: '+IntToStr(FiCountCorrect)+#13#10'Falsch: '+IntToStr(FiCountError));
  if Application.MessageBox('Neues Spiel anfangen?','Frage',MB_OK*or MB_ICONQUESTION) = ID_YES then
    StartGame
  else
    Close;
end;

MfG
xZise