Hangman Problem

[ChristianR]

Zitat von DeddyH:

Setz doch einfach die Leerzeichen wieder dazwischen und werte später nur die Zeichen mit einer ungeraden Position aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hilfwort:String;
var k:integer;
begin
buchstabe := Edit1.Text;
hilfwort := label2.caption;
Label3.Caption := inttostr(length(hilfwort));
for k  := 1 to length(hilfwort) do
begin
  if odd(k) then
  begin
    if ratewort[k] = buchstabe then
    begin
      hilfwort[k] := ratewort[k];
      Label2.Caption := hilfwort;
    end else
    begin
    ShowMessage('Daneben');
    end;
  end;
end;
end;

Ich habe das so probiert wie du es vorgeschlagen hast. Nur funktioniert es nicht ganz. Jetzt findet er nur noch den 1. buchstaben und das andere bleibt unbeachtet! Bin mit der Lösung bei mir völlig ab vom weg oder bin ich kurz davor, dass es funktionert?