Hangman Problem

[Dazek1x]

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.

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;

[Die Muhkuh]

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.

[Klaus01]

Hallo,

ich könnte mir das so vorstellen:

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

[Dazek1x]

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.

[Klaus01]

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

Grüße
Klaus

[Dazek1x]

ich hab das jetzt so

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'

[angos]

Zitat von Dazek1x:

ich hab das jetzt so

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!

[Dazek1x]

vielen dank. so klappts.