Eigentlich wie alle anderen auch.
Delphi-Quellcode:
if AnsiContainsText('Die Delphi-PRAXiS hilft immer', Edit1.Text) then
ShowMessage(Edit1.Text + ' kommt im durchsuchten String vor')
else
ShowMessage(Edit1.Text + ' kommt im durchsuchten String NICHT! vor');
Ein Form mit einem Edit-Feld und einem Button und obiges in das Button-OnClick Ereignis
...
...