Ich bin grade dabei Hangman zu programieren. Allerdings habe ich ein problem, wenn ein buchstabe in einem Wort zweimal vorkommt. Bin über jede Hilfe dankbar.

markieren

Delphi-Quellcode:

v:= pos(b,x); {x= das lösungswort}

if pos(b,x)<>0 then
begin

delete(z,v,1);
insert(b,z,v) ; {z= das gesuchte wort in strichen, b= der geratene buchstabe}
edit1.Text:= z;
end;

Hi und herzlich Willkommen in der DP

Als erstes: Verwende aussagende Variablennamen, dann blickst nicht nur Du besser durch, sondern auch wir, die Deinen Code begutachten müssen.

Das Problem ist, dass Dein Codeausschnitt nur einmal ausgeführt wird. Da Du aber mehrere Buchstaben ersetzen willst, brauchst Du hier eine Schleife.

Hallo,

ich könnte mir das so vorstellen:

markieren

Delphi-Quellcode:

for i:= 1 to length(x) do
  begin
   if x[i] = b then
     begin
       z[i] := b;
     end
  end
edit1.text := z;

Grüße
Klaus

danke für die schnelle antwort. den code versteh ich nicht so ganz. was soll i sein und wo müsste ich den code einbauen.

i ist eine Laufvariable z.B vom Typ Byte oder Integer.
Sie wird benutzt um einzelne Zeichen des Strings anzusprechen.

Grüße
Klaus

ich hab das jetzt so

markieren

Delphi-Quellcode:

for p:= 1 to length(x) do
  begin
   if x[p] = b then
     begin
       z[p] := b;
     end
  end
  edit1.text := z;

eingefügt. allerdings sagt er mir dann in dieser zeile     z[p] := b; [Fehler] Backu.pas(66): Inkompatible Typen: 'Char' und 'String'

Zitat von Dazek1x:

ich hab das jetzt so

markieren

Delphi-Quellcode:

for p:= 1 to length(x) do
  begin
   if x[p] = b then
     begin
       z[p] := b;
     end
  end
  edit1.text := z;

eingefügt. allerdings sagt er mir dann in dieser zeile     z[p] := b; [Fehler] Backu.pas(66): Inkompatible Typen: 'Char' und 'String'

Hi,

ich denke, dass du b als String delklariert hast, also b: String; z[p] ist aber nur das p-te Zeichen von z, und das ist vom Typ Char. du musst also entweder
- b als Char casten,: z[p] := Chr(b); oder
- das erste zeichen von b nehmen z[p] := b[1]; Edit: Und wie Die Muhkuh schon gesagt hat, bennen deine Variablen um. da blickst du in ner Woche nicht mehr durch!

vielen dank. so klappts.