Hangman Problem

[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