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