Hangman - Wort überprüfung ob Buchstabe vorhanden ist.

[Sropton]

Hey ihr,
so wie viele andere muss auch ich für Informatik ein Hangman programieren^^
So vieles funzt schon.
Jezt bin ich an einem problem angekommen und zwar::
Meine Wörter (aus einer txt datei) werden in ein memo geladen anschließend wird random ein Wort ausgesucht und in ein edit geschrieben .
Jetzt mein problem!
Und zwar :: Jetzt muss mein programm prüfen ob in dem Wort das gewählt wurde zb der buchstabe 'A' drin ist. uund diesen dann anschließend (wenn drin ) an der richtigen stelle einsetzen...

Könnt ihr mir helfen oder ein paar tipps geben ich wär sehr dankbar

Ich geb euch mal einen versuch von mir mit

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var s:string;
begin

    s:=Label1.Caption;
if Pos( 'A', WelchesWort ) > 0 then
   s[Pos( 'A', WelchesWort )+1] := 'A';
    Label1.Caption := s;

Danke shcon mal im Vorraus!!

[Matze]

Hallo, herzlich Willkommen!

Ich würde das mit einer Schleife lösen. Ein ungetesteter Ansatz:

Delphi-Quellcode:

var
  i: Integer;
  s: string;  // Anzeige
const
  wort = 'hallo'; // das ist das, was in deinem Memo steht.
                  // Du hast es in der Variablen "WelchesWort", vermute ich.
// ...

s := '-----'; // das, was angezeigt werden soll (Anzahl der Striche kann dynamisch bestimmt werden)

// ...

// Alle Buchstaben des Worts durchlaufen
for i := 1 to Length(wort) do
begin
  if wort[i] = 'A' then // hier eben den zu Prüfenden Buchstaben einsetzen
    s[i] := 'A';
end;

Label1.Caption := s;

Wie gesagt, es ist ungetestet und nur ein Denkansatz.

Grüße, Matze

[Sropton]

also danke erstmal

hmm die überprüfung ob der Buchstabe in dem Wort drin ist funktioniert!
Jedoch ersetzt er er den buchstaben nicht also auch nicht and der richtigen stelle... ne idee?

[DeddyH]

Zeig doch mal Deinen Code.