Hangman Problem

[ection]

Ersteinmal ein Hallo an alle hier im Forum

Ich habe ein Problem mit der Programmierung des Spieles Hangman^^

ich hänge im Grunde genommen an dem Punkt, wo, wenn der richtige Buchstabe vom Benutzer eingeben wurde ,das Programm den Buchstaben in das Label einfügen soll

Hier mal etwas genauer

x:= Length(suchwort);
for i=0 to x do
ratewort.caption:=ratewort.caption +'_ ';

Das pasiert beim Button und bei Key Press fügt der in ein Label ("Eingabe") den vom Benutzer gewählten Buchstaben ein..bis dahin geht alles aber jetzt kommt meint Problem.

proceduer OnkeyPress(...)

y:=Pos(key,suchwort);
if y > 0 then

Was soll hier jetzt hin?

else
showmessage('Nicht vorhanden')


Ich würde mich über eine Antwort sehr freuen, da die Frage mir recht zu schaffen macht
Vielleicht könntet ihr mir eine Erklärung zumindest vom Ansatz her geben

Danke!

[Matze]

Hi, herzlich willkommen!

Ich vermute, dich bist noch kein fortgeschrittener Programmierer, daher bleibe ich auf einem leichten (Anfänger-)Level und keinem performance-optimierten Code, was du aber nicht merken wirst. Ich hoffe, ich liege hier nicht falsch in meiner Annahme.

Lösen könntest du es beispielsweise so in der Art:

Delphi-Quellcode:

// auktuelles Wort auf dem label ausgeben
procedure WortAusgeben(WortAngezeigt: string);
var
  i: Integer;
begin
  Form1.Ratewort.Caption := '';

  for i := 1 to Length(WortAngezeigt)  do
  begin
    Form1.Ratewort.Caption := Form1.Ratewort.Caption + UpperCase(WortAngezeigt[i]);
    if i < Length(WortAngezeigt) then
      Form1.Ratewort.Caption := Form1.Ratewort.Caption + ' ';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Wort := 'DasKannstDuJaIrgendwoSelbstZuweisen';

  // alles klein schreiben, damit der Vergleich nicht von
  // Groß-/Kleinbuchstaben abhängig ist
  Wort := LowerCase(Wort);
  Ratewort.Caption := '';

  for i := 1 to Length(Wort) do
    WortAngezeigt := WortAngezeigt + '_';

  WortAusgeben(WortAngezeigt);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  i: Integer;
begin
  if Pos(LowerCase(Key), Wort) > 0 then
  begin
    for i := 1 to Length(Wort) do
    begin
      if Wort[i] = Key then
        WortAngezeigt[i] := Key;
    end;
  end;
  WortAusgeben(WortAngezeigt);
end;

Viel Spaß.

Grüße, Matze