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 .