OK, ich möchte "repeat" verwenden
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
repeat
if i < Length(Richedit1.Lines[i]) then
// ... was kommt noch ?
end;
end;