Inhalt von Textdateien in HTML-Code umwandeln

[Svenkan]

Hey!
Ich benötige eine Möglichkeit, den Inhalt von Textdateien korrekt in HTML-Code umzusetzen. Momentan lese ich diese Dateien einfach in ein Memo ein und lasse die Zeilen dann einzeln in den Code schreiben.
Nur wird der Text dann teilweise zu früh abgetrennt.

z.B.:

Code:

<div class="vplan-mitteilungskasten">
<table summary="Tabelle f&uuml;r Mitteilungen" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="vplan-mitteilungen">
<u>Mitteilungen:</u>


Heute findet in den ersten beiden Stunden der Känguruwettbewerb statt. Die teilnehmenden 


Schüler  treffen sich zu Beginn der ersten Stunde im Hausaufgabenraum. Weitere Infos bei




Frau Dröge-Albers und Frau Könning.





In der 2. Stunde entfallen die WPK-Kurse in den 9. Realschulklassen. Die verbleibenden 


Schüler der  Klasse 9R3 haben Unterricht im Klassenverband bei Frau Stukenborg.


</tr>
</table>
</div>

Richtig müsste es sein:

Code:

<div class="vplan-mitteilungskasten">
<table summary="Tabelle f&uuml;r Mitteilungen" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="vplan-mitteilungen">
<u>Mitteilungen:</u>


Heute findet in den ersten beiden Stunden der Känguruwettbewerb statt. Die teilnehmenden Schüler  treffen sich zu Beginn der ersten Stunde im Hausaufgabenraum. Weitere Infos bei Frau Dröge-Albers und Frau Könning.





In der 2. Stunde entfallen die WPK-Kurse in den 9. Realschulklassen. Die verbleibenden Schüler der  Klasse 9R3 haben Unterricht im Klassenverband bei Frau Stukenborg.


</tr>
</table>
</div>

Delphi-Quellcode:

  if NOT (heute_m.Lines.Text='') then begin
  WriteLn(Datei,'<div class="vplan-mitteilungskasten">');
  WriteLn(Datei,'<table summary="Tabelle f&uuml;r Mitteilungen" border="0" cellspacing="0" cellpadding="0">');
  WriteLn(Datei,'<tr>');
  WriteLn(Datei,'<td class="vplan-mitteilungen">');
   if m_l=TRUE then begin
    WriteLn(Datei,'Mitteilungen:');
    WriteLn(Datei, '<ul>');
    For I:=0 to heute_m.Lines.Count -1 do
    WriteLn(Datei, '[*]'+heute_m.Lines[i]+'');
    WriteLn(Datei, '[/list]');
   end
   else begin
    WriteLn(Datei,'<u>Mitteilungen:</u>
');
    For I:=0 to heute_m.Lines.Count -1 do
    WriteLn(Datei, heute_m.Lines[i]+'
');
   end;
   WriteLn(Datei,'</td>');
  WriteLn(Datei,'</tr>');
  WriteLn(Datei,'</table>');
  WriteLn(Datei,'</div>');
 end;

[toms]

Hallo, setze mal WordWrap Eigenschaft des Memos auf False.