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

[uwewo]

Ok, nach nun ünzähligen Versuchen hab ich es rausgekriegt.

füge am Ende diese Zeile hinzu. :lol:

Delphi-Quellcode:

  RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

[smart]

Zitat:

Zitat von uwewo

Ok, nach nun ünzähligen Versuchen hab ich es rausgekriegt.

füge am Ende diese Zeile hinzu. :lol:

Delphi-Quellcode:

  RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

Vielen Dank für Deine Mühe, aber das hatte ich auch schon ohne Erfolg versucht. Mir ist jetzt nicht bekannt ob es an der Delphversion liegt kann? Wenn Du es hinbekommen hast, dann sei doch bitte so lieb und sende mir den Code als Datei. Schon mal vielen Dank!

Gruß
Heike

[uwewo]

Hallo Heike,

habe es mit Delphi 5 sowie BDS 2006 versucht und es funktioniert!

Der Quellcode zum suchen stammt aus der Hilfe von Delphi 5.

Sag Bescheid ob es funktioniert oder nicht.

[Nightdemon]

ich weiß, dass dieser thread etwas älter ist, habe aber leider genau das selbe Problem
wie die Dame vor mir. Habe die bereits hier gestellte Hilfe probiert, komme damit jedoch auch zu keiner Lösung.
habe sogar den quellcode direkt verglichen, wie auch die Eingaben im RichEdit... man weiß ja nie wo der Fehler liegen könnte. ^^

jap wäre dankbar wenn mir vllt. noch einer bis morgen abend helfen könnte :)


PS: Bin relativ neu mit Delphi... und hab schon Probleme damit das der die Schriftarten aus der Kombobox auch übernimmt, also mit ihnen schreibt, aber das ist ein anderes thema.

[smart]

Zitat:

Zitat von Nightdemon

ich weiß, dass dieser thread etwas älter ist, habe aber leider genau das selbe Problem
wie die Dame vor mir. Habe die bereits hier gestellte Hilfe probiert, komme damit jedoch auch zu keiner Lösung.
habe sogar den quellcode direkt verglichen, wie auch die Eingaben im RichEdit... man weiß ja nie wo der Fehler liegen könnte. ^^

jap wäre dankbar wenn mir vllt. noch einer bis morgen abend helfen könnte :)


PS: Bin relativ neu mit Delphi... und hab schon Probleme damit das der die Schriftarten aus der Kombobox auch übernimmt, also mit ihnen schreibt, aber das ist ein anderes thema.

Hi!

Bei mir musste

Delphi-Quellcode:

HideSelection := False

stehen, danach klappte es.

Gruß
Heike

[Nightdemon]

hach wie lustig, so einfach kanns sein, danke dafür =)