Delphi-Quellcode:
for i:= 0 to memo1.lines.count do 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;
bei such text kommt z.b edit1 rein oder ?
und die var i soll strin sein oder?