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.