Hi
ich versehe nicht, warum mein Code manchmal die Position von dem gefundenen String nicht korrekt zeigt !
Hier ist ein Beispiel. Der Code sucht nach der String-Position, was ich in Edit eingebe. Und zeigt die Positionen in Listbox (Zeile Nummer und Position):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,p : Integer;
begin
for i:=0 to RichEdit1.Lines.Count-1 do begin
p :=Pos(UpperCase(Edit1.Text),UpperCase(RichEdit1.Lines[i]));
if p <> 0 then
ListBox1.Items.Add(Format('%d,%d',[i+1,p]));
end;
end;
Aber manchmal zeigt die Posotion falsch !
statt
1,1
kommt
1,4605548 !!!