Funktion für Galgenraten will nicht Funktionieren :(

[fabiO]

Jo ok so langsam blick ich durch...

Das mit dem Wort[i] war aus meiner alten For Schleife

Delphi-Quellcode:

For i := 1 to length(Wort) do
          if Wort[i] = a
            then Wort1[i] =: a;

Aber irgendwie gehört das ja jetzt gar net mehr rein, aber wie kann ich delphi dann sagen, das ich genau diesen buchstaben austauschen möchte ?

Hab den Code nach deinen Hinweisen ausgebessert, also Inc(Zahl) etc gemacht und die variablen ins private getan, aber es geht trotzdem nicht

Ich weiss ich bin ein hoffnungsloser fall, aber ich steig da nich so richtig durch, wie ich nun die funktion mit meiner prozedur verbinden kann ?

Delphi-Quellcode:

Function CheckBuchstabe(CONST aBuchstabe : Char; CONST aString : String) : Boolean;
begin
  Result := (Pos(aBuchstabe, aString) > 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aString   := 'penispumpe';
  aString1  := '**********';
  versuche  := 0;
  fehler    := 0;
  Label1.Caption := aString1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var aBuchstabe : Char;
    i : Integer;
begin
  Inc(versuche);
  aBuchstabe := Lowercase(Edit1.Text)[1];
  if CheckBuchstabe(aBuchstabe) then
    begin
      aString1[i] := aBuchstabe;
      Inc(versuche);
    end
  else begin
        Showmessage ('Sorry, der Buchstabe kommt nicht vor!');
        Inc(fehler);
       end;

  Label4.Caption := IntToStr(versuche);
  Label5.Caption := IntToStr(fehler);
  Label1.Caption := aString1;
end;