String position in Richedit auslesen

[thomas2009]

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

[thomas2009]

Ich bitte euch um eine Hilfe
kann jemand mir sagen, was das ist ?
1,4605548 !!!

[vergessen]

Geschieht das beim gleichen oder verschiedenen Texten?

Möglicherweise ein einzeiliger Text, der nur durch WordWrap:=True wie mehrzeilig aussieht? Setz' mal WordWrap auf false.

Reine Spekulation...

[juergen]

Hallo,
- was passiert, wenn du format beim Addden in der Listbox weg lässt?
- ändert ein AnsiUpperCase etwas? (bei deinem Beispiel wohl eher weniger, bitte mehr als Hinweis für andere Texte betrachten)