Richedit zeilen durchsuchen

[lucius]

Ich habs.

richedit1.selstart := i - 3; Aber jetzt findet er den Text in der Zeile nicht mehr, bitte um hilfe.

Delphi-Quellcode:

for b := richedit1.selstart to Richedit1.selstart + 1 do
    begin
      if Pos('sectionid', Richedit1.Lines.Strings[b]) > 0 then
    begin
      s := '';

      for p := Pos('sectionid', Richedit1.Lines.Strings[b]) to
        Length(Richedit1.Lines.Strings[b]) do
        if Richedit1.Lines.Strings[b][p] <> '<' then
          s := s + Richedit1.Lines.Strings[b][p]
      else
        break;

      Memo1.Lines.Add(s);
      Memo1.Text := StringReplace(Memo1.Text, 'sectionid', '', [rfReplaceAll, rfIgnoreCase]);