Richedit zeilen durchsuchen

**lucius**

Hallo ich habe folgenden code der durchsucht ein Richedit nach einen bestimmten text.

Delphi-Quellcode:

			for i := 0 to Richedit1.Lines.Count - 1 do

  begin

    if Pos('95703">', Richedit1.Lines.Strings[i]) > 0 then

    begin

      s := '';

      for p := Pos('95703">', Richedit1.Lines.Strings[i]) to

        Length(Richedit1.Lines.Strings[i]) do

        if Richedit1.Lines.Strings[i][p] <> '<' then

          s := s + Richedit1.Lines.Strings[i][p]

      else

        break;

      Memo2.Lines.Add(s);

      Memo2.Text := StringReplace(Memo2.Text, '95703">', '', [rfReplaceAll, rfIgnoreCase]);

jetzt moechte ich das er 4 Zeilen nach oben geht und dan nach einen bestimmten text sucht in der Zeile, dan wieder 1 Zeile nach oben und suchen unsw, bis er nix meht findet.
hat einer ne Ahnung wie ich das hinkriege?
Habe schon vieles probiert aber klapt nicht so wie ich das gerne moechte, bin noch neu in Delphi.
Sorry sehe gerade das ich in Internet / LAN / ASP.NET sitzt aber das Program hat was mit nem Inet zu tun .

Richedit zeilen durchsuchen

Richedit zeilen durchsuchen

Forumregeln