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]

for I := 0 to Memo1.Lines.Count do muss der teil nicht

for I := 0 to Memo1.Lines.Count - 1 do heißen? macht er da nicht sonst eine zeile zu viel?

[smart]

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 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 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 von leddl:

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