Ich möchte aus einem Text in TRichEdit eine Stringreihenfolge suchen. Ich habe mir diesen Code zusammengestellt. Es wird auch gefunden, aber nicht an der Stelle gescrollt an der gefunden wird. Was mache ich da falsch?
Delphi-Quellcode:
Var
I, J, PosReturn, SkipChars: Integer;
begin
for I := 0 to RichEdit1.Lines.Count do
begin
PosReturn := Pos(FindDialog1.FindText,RichEdit1.Lines[I]);
if PosReturn <> 0 then {gefunden!}
begin
Skipchars := 0;
for J := 0 to I - 1 do
Skipchars := Skipchars + Length(RichEdit1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
RichEdit1.SetFocus;
RichEdit1.SelStart := SkipChars;
RichEdit1.SelLength := Length(FindDialog1.FindText);
Break;
end;
end;