TMemo nach hinzufügen von TStrings nicht am Ende

[LaNtHaN]

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:

if t <> '' then begin
   t := Trim(t);
   Empfang.Add(t);
   Empfang.Text;
   M_Command5.Lines.AddStrings(Empfang);
end;

Weiter möchte ich TStrings durchsuchen ob zum Beispiel ein bestimmtes Wort enthalten ist. Kann mir da jemand einen Lösungsansatz geben?


Vielen Dank im Voraus!

[bttb930]

die erste frage versteh ich nicht

die zweite: nimm doch eine TStringList statt TStrings und verwende dann die Methode IndexOf()

[LaNtHaN]

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.

[Binärbaum]

Falls es bei Memo1.Lines.Add immer an das Ende des Memos scrollt, kann man das so lösen:

Delphi-Quellcode:

//eigentlichen Text anfügen
Memo1.Lines.AddStrings(Empfang);
//ans Ende scrollen
Memo1.Lines.Add(' ');
//Zeile wieder löschen
Memo1.Lines.Delete(Memo1.Lines.Count);

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.

MfG
Binärbaum

[Luckie]

Zitat von Binärbaum:

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.

Besser wäre:
Form1.Memo1.Perform(EM_SCROLL, SB_PAGEDOWN, 0);

[LaNtHaN]

Danke viel mals...
War genau das was ich suchte