Mehrere Zeilen in Memo einfügen

[Spurius]

Hallo,
wie kann ich mehrere Zeilen in ein Memo einfügen?
Ich mach grad einen HTML-Editor und da will ich z.B. sowas einfügen:

<table border=1>
<tr>
<td>
</td>
</tr>
</table>

Aber wie muss ich dass einfügen, damit dass nich alles in eine Linie geschrieben wird?
Gruß
Spurius

[Stanlay Hanks]

Hi!

Delphi-Quellcode:

Memo1.Lines.Add('<table border=1>');
Memo1.Lines.Add('<tr>'); 
Memo1.Lines.Add('<td>'); 
Memo1.Lines.Add('</td>');
Memo1.Lines.Add('</tr>');
Memo1.Lines.Add('</table>');

Lines ist ja eine StringList. Daher wird bei Add immer ein neuer Eintrag, also eine neue Zeile hinzugefügt.

Man liest sich, Stanlay :hi:

[Michael Leyhe]

HI

Mit

Delphi-Quellcode:

 memo1.lines.add ('text');

fügst du etwas an den schluss des memos an.

PS Es ist genauso wie mit einer Listbox, nur anstatt ITEMS musst du LINES verwenden. :-D

[Robert_G]

Moin Spurius.

Möglichkeit 1:

Delphi-Quellcode:

Memo.Lines.Add('<table border=1>'); 
Memo.Lines.Add('<tr>');
Memo.Lines.Add('<td>');
Memo.Lines.Add('</td>');
Memo.Lines.Add('</tr>');
Memo.Lines.Add('</table>');

Möglichkeit 2:

Delphi-Quellcode:

Memo.Text := Memo.Text + #13#10+
             '<table border=1>' + #13#10+ 
             '<tr>' + #13#10+ 
             '<td>' + #13#10+ 
             '</td>' + #13#10+ 
             '</tr>' + #13#10+ 
             '</table>';

#13#10 ist ein "normaler" Zeilenumbruch (cariage return + line feed)

[edit]wieder zu langsam :wink: [/edit]
[edit2]...und auch noch verschrieben... :wall: [/edit2]

[Spurius]

Und wie krieg ich das so formatiert wie ich oben geschrieben hab?
Halt erst
<table> dann
<tr> etc.

Gruß
Spurius

[Michael Leyhe]

HI

Das hat Stanlay Hanks doch geschrieben! :roll:

[Spurius]

Ne, ich mein das die Einträge eingerückt werden wie ich oben gepostet habe.

[Michael Leyhe]

HI

Also ich sehe die alle gerade untereinander stehen. (Das liegt daran das die Leerzeichen am Anfang der Zeilen verschwinden)

Wenn du es so haben willst:

Delphi-Quellcode:

<table border=1> 
   <tr> 
      <td> 
      </td> 
   </tr> 
</table>

dann musst du halt noch leerzeichen einfügen d.h.

Delphi-Quellcode:

memo1.lines.add ('   ' + '<tr>);