Inc ( i ) Problemchen

Hi

mein Code sucht zwar nach dem String in allen Zeilen aber er findet nur ein String Maximum in eine Zeile.

Wenn er ein String in eine Zeile findet, dann springt automatisch in die nächste Zeile

Also ich mus Inc(i) irgendwo einsetzen, damit meine Code nach dem String in die ganz Zeile merfach sucht

hier ist mein Code

zusammenfalten · markieren

Delphi-Quellcode:

			var

          i,s: Integer;

begin

ListBox2.Clear; // alle Strings-Pos hier anzeigen

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

              s := Pos(UpperCase(Edit1.Text),UpperCase(Richedit1.Lines[i]));

              if s <> 0 then

                 ListBox2.Items.Add(Format('%d,%d',[i+1,s]));

// ... nun soll der Code in die selbe Zeile weiter suchen und nicht in die nächste Zeile 

          end;

end;

Inc ( i ) Problemchen

Inc ( i ) Problemchen

Forumregeln