Hallöle und willkommen in der
DP (das wollt ich schon immer mal sagen
)
Hast dus schonmal mit pos() probiert?
So nach dem schema
Delphi-Quellcode:
for i:= 0 to memo1.lines.count do -1 begin
if pos(suchtext1, memo1.lines[i]) <> 0 then begin
if pos(suchtext2, memo1.lines[i]) <> 0 then begin
find = false;
end else begin
find = true;
end;
end else begin
find:= false;
end;
end;
suchtext1 ist der Text der gefunden werden soll, suchtext2 der Text der nicht vorhanden sein soll.
pos() gibt 0 zurück wenn der Gesuchte text nicht gefunden wurde.
Wenn diese Schleife also den ersten suchtext findet, sucht sie in der selbe Zeile nach dem zweiten.
Wenn der drin ist wird find:= true, wenn nicht := false gesetzt.
Funktioniert allerdings nur wenn der text auch nach zeilen sortiert ist, also pro Zeile ein zu durchsuchender string. Wenn der das nicht ist soltest du dir mal die DelimitedText methode anschaun.
GreeZ HenKst