Hangman Projekt für Info: Fragen über Fragen

[Sharky]

Hai Blub *gg*,

hier mal ein Lösungsansatz von mir

Delphi-Quellcode:

var
 ratewort : String;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit1.MaxLength := 1;
  ratewort := 'blubb';
  Timer1.Interval := 2000;
  Timer1.Enabled := False;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  If (Edit1.Text <> '') then
  begin
    if (Pos (Edit1.Text,ratewort) > 0) then
    begin
      Label1.Caption:='ok'
    end
    else
    begin
      Label1.Caption:='nö'
    end;
  end;
  Edit1.SelStart := 0;
  Edit1.SelLength := 1;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:='bitte was eingeben';
  Timer1.Enabled := False;
end;