FindText springt nicht zur gefundenen Zeile!

[smart]

Hallo Alle!

Ich habe hier einen FindText Code aus der Hilfe von Delphi. An sich arbeitet der Code einwandfrei. Aber wenn ich ein TRichEdit anstatt ein TMemo nehme findet der Code zwar den gesuchten Text, springt aber nicht dort hin. Mit ein TMemo klappt das einwandfrei. Was muss ich ändern damit es auch mit einer TRichEdit klappt?

Delphi-Quellcode:

Var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {gefunden!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
        Skipchars := Skipchars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(FindDialog1.FindText);
      Break;
    end;
  end;

Gruß
Heike

[fwsp]

Delphi-Quellcode:

for I := 0 to Memo1.Lines.Count do

muss der teil nicht

Delphi-Quellcode:

for I := 0 to Memo1.Lines.Count - 1 do

heißen? macht er da nicht sonst eine zeile zu viel?

[smart]

Zitat:

Zitat von fwsp

heißen? macht er da nicht sonst eine zeile zu viel?

Da hast Du Recht, es würde die falsche Zeile angezeigt werden. Vielen Dank. Klappt aber trozdem nicht.

Gruß
Heike

[uwewo]

Habe Deinen Quellcode gerade anstatt mit FindDialog.FindText mit einem Edit ausprobiert
und es funktioniert einwandfrei!

[smart]

Zitat:

Zitat von uwewo

Habe Deinen Quellcode gerade anstatt mit FindDialog.FindText mit einem Edit ausprobiert
und es funktioniert einwandfrei!

Hallo!

Mit einem TRichEdit?

Gruß
Heike

[uwewo]

EDIT.TEXT anstatt FindDialog.FindText

[leddl]

Zitat:

Zitat von uwewo

EDIT.TEXT anstatt FindDialog.FindText

Aber wahrscheinlich mit einem Memo, oder? ;) Da funktioniert es bei ihr ja, sie möchte es aber in einem RichEdit zum laufen bekommen ;)

[smart]

Zitat:

Zitat von leddl

Zitat:

Zitat von uwewo

EDIT.TEXT anstatt FindDialog.FindText

Aber wahrscheinlich mit einem Memo, oder? ;) Da funktioniert es bei ihr ja, sie möchte es aber in einem RichEdit zum laufen bekommen ;)

Ja, richtig!

Gruß
Heike

[uwewo]

OK, sorry Hatte mit Memo und Edit probiert!

Nun aber mit Richedit + Edit und es funktioniert auch.

Habe nur Memo gelöscht und RichEdit in Memo1 umbenannt es funktioniert.

[smart]

Zitat:

Zitat von uwewo

OK, sorry Hatte mit Memo und Edit probiert!

Nun aber mit Richedit + Edit und es funktioniert auch.

Habe nur Memo gelöscht und RichEdit in Memo1 umbenannt es funktioniert.

Das kann schon sein, aber wenn der Text länger ist, so das die Scrollbalken an sind und man den Text aus diesen Grund nicht sehen kann, dann wird bei einem TRichedit nicht dort hin gesprungen? Dass kann auch bei Dir nicht klappen. Zu mindest bei Delphi 7 nicht ;-) Siehe meine Anfrage ganz oben!

Gruß
Heike