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 :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

Delphi-Quellcode:

    z[p] := b;

[Fehler] Backu.pas(66): Inkompatible Typen: 'Char' und 'String'

[angos]

Zitat:

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

Delphi-Quellcode:

    z[p] := b;

[Fehler] Backu.pas(66): Inkompatible Typen: 'Char' und 'String'

Hi,

ich denke, dass du b als String delklariert hast, also

Delphi-Quellcode:

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,:

Delphi-Quellcode:

z[p] := Chr(b);

oder
- das erste zeichen von b nehmen

Delphi-Quellcode:

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.