hangman programm - delphi 3

[Klaus01]

Hallo,
in Deinem Code fehler so einige begin und ends.

Wenn Du in einer if Abfrage mehrere Befehle ausführen wills
solltest Du diese in begin end einfassen.
Ansonsten wird nur der erste Befehl ausgeführt.
Der zweite wird unabhängig vom Ausgang der if Abfrage
im ausgegührt.

Delphi-Quellcode:

if  erraten = 0  then
  begin
    falsch := falsch + 1;
    LbFehler.Caption := IntToStr(falsch);
    with ImBild.Canvas do
      begin
        if falsch = 1 then
          begin  // fehlt bei Dir
            moveto (50,150);
            lineto (50,250);
          end  // fehlt auch bei Dir

      end;
    end;

Übersichtlicher würde es auch, wenn Du case statements verwenden würdest:

Delphi-Quellcode:

with ImBild.Canvas do
  begin
    ...
    case falsch of
      1:  begin
            ...    
          end;
      2:  begin
            ...
          end;
    end  //case
  end // with

Grüße
Klaus