bis zu einem bestimmten zeichen suchen?

[shadow999]

ich hab es mal so probiert das eine abfrage stattfindet ob der cursor sich
zwischen p und p2 befindet mein code klappt aber niciht ganz

Delphi-Quellcode:

 
procedure TForm1.SynMemo1Change(Sender: TObject);
begin
 CurPosition := SendMessage(SynMemo1.handle,EM_LineIndex,Ln,0);
 CurPosition := SynMemo1.SelStart-CurPosition;
end;

 for i:= CurPosition downto 0 do
  begin
    z:=LowerCase(SynMemo1.Lines[i]); //gleich in Kleinbuchstaben umwandeln :-)
    p:=Pos('<img',z);
    if p > 0 then begin
      inc(p,4); //'<img' übergehen
      p2 := p;
      while z[p2] <> '>' do
       begin
       inc(p2); //p2 bleibt auf Position von '>' stehen
       end;
      if (CurPosition < p-2) and (CurPosition > p2-2) then
       begin
       // tue etwas
        Caption := 'Tue etwas';     // wird nicht angezeigt 
       end;
      //
      SynMemo1.Lines[i]:=z;
    end;
  end;