Fehlersuche ;D

[Klaus01]

aus einem anderen Hangman:

Delphi-Quellcode:

procedure TMain.BBPruefenClick(Sender: TObject);
var
  i: Byte;
  gefunden: Boolean;
begin
  gefunden:=false;   // Merker ob ein Buchstabe gefunden wurde
  if length(EdBuchstabe.Text) > 1 then
    ShowMessage('Bitte nur einen Buchstaben eingeben')
  else
    begin
      // durchlaufe den String von vorn bis hinten
      for i:=1 to length(RateWort) do
        // wenn der Buchstabe gefunden wurde
        if EdBuchstabe.Text[1] = RateWort[i] then
          begin
            hiddenRateWort[i]:=edBuchstabe.text[1];  // ersetze den Buchstaben
            gefunden:=true;                          // setze Merker auf true
          end;
      lbRateWort.Caption:=hiddenRateWort;            // update der Anzeige
      // wenn kein Buchstabe gefunden wurde
      if not gefunden then
        begin
          inc(failureCounter);            // erhöhe Fehlerzähler um 1
          label5.Caption:=IntToStr(failureCounter);        // update der Fehlversuchanzeige
          ImageList1.GetBitmap(failureCounter-1,imgBild.Picture.Bitmap)    // update des Galgenmännchens
        end;
      edBuchstabe.Text:='';          // lösche den Buchstabe aus dem Buchstabenfeld
      edBuchstabe.SetFocus;          // setze den Focus auf das Buchstabenfeld
    end;
end;

es sollte der prinzipielle Ablauf deutlich werden.

Grüße
Klaus