Zeilenumbrüche in Memofeld beim Schreiben in Datei beachten

[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