Funktion für Galgenraten will nicht Funktionieren :(

[fabiO]

Ok, hab mir das mit Pos Funktion durchgelesen

Mit der kann man also in einem string nach einem Teilstring suchen und sich dann die stelle ausgeben lassen, wo der Teilstring im String vorkommt, und wenn er nicht vorkommt gibt er 0 aus.. richtig ?

Hab das was du gepostet hast mal eingefügt, und mein code sieht nun so aus:

Delphi-Quellcode:

Function CheckBuchstabe(CONST aBuchstabe : Char; CONST aString : String) : Boolean;
var i : Integer;
begin
  CheckBuchstabe := false;
  For i := 1 to length(aString) do
    if aString[i] = aBuchstabe
    then CheckBuchstabe := true;
end;



procedure TForm1.FormActivate(Sender: TObject);
begin
  Label1.Caption := aString1;
  versuche := 0;
  fehler := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a : Char;
    i : Integer;
begin
  versuche := versuche+1;
  a := Lowercase(Edit1.Text)[1];
  if CheckBuchstabe(a) = true then
    begin
      aString1[i] := a;
      versuche := versuche+1;
    end;

  if CheckBuchstabe(a) = false then
    begin
      Showmessage ('Sorry, der Buchstabe kommt nicht vor!');
      fehler := fehler+1;
    end;

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

den fehler den er mir ausgibt is nach wie folgt der hier:

Code:

[Fehler] Unit1.pas(60): Nicht genügend wirkliche Parameter

Was mir delphi damit sagen will versteh ich nich so recht weshalb ich auch nicht weiß, wie ich es lösen soll...

Sorry wenn ich bissl schwer bin, bin aber noch totaler anfänger

Gruss fabiO