Zeilenumbrüche in Memofeld beim Schreiben in Datei beachten

[Svenkan]

Hey!
Folgendes Problem zu später Stunde:
ich lasse aus txt-Dateien den Inhalt auslesen und in ein Memo-Feld übergeben.
Nun lasse ich diesen Inhalt in Listen in eine htm-Datei schreiben. Leider wird für jede neue Zeile des Memo-Felds auch ein neuer Absatz innerhalb der Liste begonnen.
Ich möchte aber, dass dies erst geschieht, wenn auch wirklich ein Absatz vorhanden ist und nicht ein einfacher Zeilenumbruch.
Wie lässt sich dies realisieren? Oder benötige ich dazu evtl ein RichText-Feld?

[mkinzler]

Besser eine HTML-Komponente

[marabu]

Moin Sven,

das CMS FrameWork ZOPE verwendet in seinem Structured Text die Konvention, dass Absätze durch mindestens eine Leerzeile geschaltet werden:

Delphi-Quellcode:

function CreateUnorderedList(lines: TStrings): TStrings;
var
  i: Integer;
  isItem: Boolean;
begin
  Result := TStringList.Create;
  Result.Add('<ul>');
  isItem := False;
  for i := 0 to lines.Count do
    if (i = lines.Count) or (lines[i] = '') then
    begin
      if isItem
        then Result.Add('')
        else Continue;
      isItem := False;
    end else
    begin
      if isItem
        then Result.Add('
')
        else Result.Add('[*]');
      Result.Add(lines[i]);
      isItem := True;
    end;
  Result.Add('[/list]');
end;

Der Code soll nur das Prinzip verdeutlichen.

Grüße vom marabu