Komplizierte suche in Memo ! Hilfe

[HenKst]

*auchcodeklau*

Delphi-Quellcode:

      if
        ( Pos( FindenStr, Memo.Lines[ LineIdx ] ) > 0 ) and
        ( Pos( NichtFindenStr, Memo.Lines[ LineIdx ] ) = 0 )
      then

das ist doch (fast) genau was diese Abfrage macht.
Nur sucht sie im gesamten String und nicht nur vorher.
Wenns unbedingt vorher sein soll musst du halt per copy bis pos(suchstring1) ausschneiden.

Du suchst nach "u8*"
nicht vorkommen soll "far"

Code:

Fall 1:
String= "far blablal u8*"
(Pos( "u8*", string) <> 0) = true
and
(Pos( "far", string) = 0 ) = false

durchlauf beendet;

Fall 2:

Code:

String= "blablal u8*"
(Pos( "u8*", string) <> 0) = true
string:= copy(string, 1, Pos( "u8*", string));
and
(Pos( "far", string) = 0 ) = true

markierung beginnt;