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
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;