*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;