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.:

markieren

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:

markieren

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>

zusammenfalten · markieren

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;

Hallo, setze mal WordWrap Eigenschaft des Memos auf False.