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;