hangman in delphi 2

[Conan Edogawa]

heyho... hab leider nicht ganz so viel ahnung von delphi aber wir benutzen diese programm in der schule. :wink: Momentan müssen wir eni hangmanspiel programmieren. Funktioniert soweit auch ganz gut ... komm jetzt allerdings nicht weiter. also:

Delphi-Quellcode:

var
  Form1: TForm1;
  buchstabe, wort, anzeige : string;
  laenge, index : integer;

procedure TForm1.Button1Click(Sender: TObject);
var  ausgabe : string;
begin
wort := (edwort.text);
laenge := length(edwort.text);
ausgabe := ' ';
For index:=1 to laenge do
ausgabe := ausgabe + ' _';

edwort.text := (ausgabe);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
buchstabe := (edbuchstabe.text);
anzeige := (edanzeige.text);

if pos (buchstabe, wort) > 0 then
anzeige :=  'enthalten'
else
anzeige := 'nich drin' ;


edanzeige.text := (anzeige);

end;

... heißt: er verschlüsselt das wort, so wie gedacht und er zeigt mir auch an, wenn ein buchstabe in diesem wort enthalten ist, oder nicht. Ich weiß jetzt allerdings nicht, wie ich diesen buchstaben dann ersetzten kann, also wie aus _ _ _ _ _ _ a _ _ o oder sowas wird
wär toll, wenn mir wer helfen kann...
thx im vorraus :hi:

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen, danke.;-) Mfg, Daniel[/edit]

[hanselmansel]

Hi, wenn du deinen Quellcode mit Delphi-Tags umschließt, ist er für uns einfacher lesbar, und wir könnten uns mit der Behandlung deines Problems beschäftigen, anstatt mit dem dechiffrieren des Posts. :zwinker:

MfG,

hanselmansel

[Martin K]

Ich hab irgendwann mal ein komplettes Hamgman geschrieben.
Vielleicht kannst du dir ja das was du brauchst aus dem Quellcode entnehmen.
Aber bitte nicht das komplette Programm als "dein eigenes Programm" verkaufen.
Danke!

[Martin K]

Für Fragen zu meinem Quellcode stehe ich gerne zur Verfügung.