Wie fügt man einer Memo mehrere Zeilen gleichzeitig hinzu?

[xineohp]

aber mit Umweg über eine Stringlist scheint es zu funktionieren. Probier mal:

Delphi-Quellcode:

var s: tstringlist;
...
s := tstringlist.Create;
s.Add('aaaaa'+#13+'bbbbbb');
memo1.Lines.Text := s.Text;
s.Free;

[Robert_G]

Zitat:

Bei mir lags meistens daran, dass das Memo den Zeilenumbruch ( #10#13 oder auch nur #10 / #13 ) nicht als solchen erkennt und somit falsch darstellt.

Das ist ja auch kein Zeilenumbruch!
Ein Zeilenumbruch unter Windows ist ein CrLf (carriage return + line feed) -> #13#10

[vlees91]

NOCHMAL:

Bei dem Wettbewerb benutze ich IdHTTP.Get um die Shoutbox zu kopieren/öffnen (wie mans nimmt).
IdHTTP.Get liefert den Quellcode der Zielseite aus. Das ist das, von dem ich einen Teil gepostet habe.
Allerdings wird anstatt ein Zeilenumbruch ein | (Alt Gr + die taste mit <,> und |.

Hoffentlich habe ich mich jetzt gut ausgedrückt.

Im Anhang ist mein "Project".

[vlees91]

ES HAT GEKLAPPT!!!

Ich hab es jetzt wie phoenix(umgedreht) gemacht.
also zuerst IdHTTP.Get
dann ein tstringlist erstellt
da die ausgabe von IdHTTP.Get rein
und dann der inhalt von tstringlist in das memo rein

DANKE phoenix(umgedreht)

[xineohp]

ups, kleiner Dreher, sorry ...
ist in diesem Fall aber unerheblich, da die Memos weder #13 noch #10 erkennen. jedes dieser Zeichen erzeugt ein |. Außerdem hab ich den "manuellen" Zeilenumbruch nur zu Demonstrationszwecken eingefügt der eigentlich String wird ja von IdHTTP geliefert, und der enthält korrekt Zeilenumbrüche.