![]() |
TMemo nach hinzufügen von TStrings nicht am Ende
Hallo zusammen
Ich füge in ein TMemo TStrings hinzu... Mit Lines.Add scrollte es immer schön ans Ende des TMemo. Wie kann ich dies bei einem TStrings lösen, damit immer die letzte Line zu unterst ist?
Delphi-Quellcode:
Weiter möchte ich TStrings durchsuchen ob zum Beispiel ein bestimmtes Wort enthalten ist. Kann mir da jemand einen Lösungsansatz geben?
if t <> '' then begin
t := Trim(t); Empfang.Add(t); Empfang.Text; M_Command5.Lines.AddStrings(Empfang); end; Vielen Dank im Voraus! |
Re: TMemo nach hinzufügen von TStrings nicht am Ende
die erste frage versteh ich nicht
die zweite: nimm doch eine TStringList statt TStrings und verwende dann die Methode IndexOf() |
Re: TMemo nach hinzufügen von TStrings nicht am Ende
Beim ersten möchte ich einfach dass, das TMemo immer beim letzten Eintrag ist,
da ich aber nicht mit Lines.Add arbeite ist dies nicht auotmatisch der fall. Beim durchsuchen ist TStrings durch das TMemo gegeben... Trotzdem danke für den Hinweis. |
Re: TMemo nach hinzufügen von TStrings nicht am Ende
Falls es bei Memo1.Lines.Add immer an das Ende des Memos scrollt, kann man das so lösen:
Delphi-Quellcode:
Dabei wird zusätzlich zum eigentlichen Text noch eine Leerzeile mit Add angfügt, um zur untersten Zeile zu scrollen. Danach wird die Leerzeile sofort wieder gelöscht.
//eigentlichen Text anfügen
Memo1.Lines.AddStrings(Empfang); //ans Ende scrollen Memo1.Lines.Add(' '); //Zeile wieder löschen Memo1.Lines.Delete(Memo1.Lines.Count); MfG Binärbaum |
Re: TMemo nach hinzufügen von TStrings nicht am Ende
Zitat:
Delphi-Quellcode:
Form1.Memo1.Perform(EM_SCROLL, SB_PAGEDOWN, 0);
|
Re: TMemo nach hinzufügen von TStrings nicht am Ende
Danke viel mals...
War genau das was ich suchte |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz