Hangman Projekt für Info: Fragen über Fragen

[xineohp]

Zitat von Toxman:

Warum was neu schreiben, was es doch schon frei Haus gibt???

Mein Vorschlag:

Delphi-Quellcode:

Buchstabe:=edit1.text; 
Wort:=edit2.text; 
if pos(Buchstabe,Wort)>0 then 
  label1.caption:='drin' 
else 
  label1.caption:='draussen';

Zitat von The Fine Manual:

Beschreibung
Pos sucht in dem String S nach dem Teil-String Substr. Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.