vielleicht hilft dir die Funktion
pos()
Delphi-Quellcode:
if (pos(bla5,s)>0) and (pos(bla6,s)>0) then
begin
...
end;
Zitat:
Die Funktion Pos gibt den Indexwert des ersten Zeichens innerhalb des angegebenen Teil-Strings zurück, der in einem String vorkommt.
Unit
System
Kategorie
String-Verarbeitung
function Pos(Substr: string; S: string): Integer;
Beschreibung
Pos sucht in dem String S nach dem Teil-String Substr. Die Parameter Substr und S sind String-Ausdrücke.
Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.