hangman programm - delphi 3

[bigben37]

Zitat von DeddyH:

case halte ich in diesem Fall nicht für sinnvoll. Ich würde das eher so machen:

Delphi-Quellcode:

procedure TFrmHangman.ImBildPaint(Sender: TObject);
begin
  ImBild.Canvas.Pen.Color := clBlack;
  if falsch > 0 then
    begin
      ImBild.Canvas.moveto (50,150);
      ImBild.Canvas.lineto (50,220);
    end;
  if falsch < 1 then
    begin
      ImBild.Canvas.moveto (50,220);
      ImBild.Canvas.lineto (80,220);
    end;
end;

Ich hab noch nie einen Hangman gesehen, der nur aus zwei Strichen besteht.
Ich denke, die anderen Zeichenschritte hat Eduard noch nicht in den Code geschrieben.