memo(oder ähnliches) als html umwandeln

[Alexander]

versuch mal so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
var i,j: integer; 
begin 
  Memo2.Lines.clear; 
  for i := 0 to Memo1.Lines.Count-1 do 
    begin 
     Memo2.Lines.Add(Memo1.Lines[i] + '
'); 
     If Memo1.Lines[i] = '' then 
      begin
       j := i; 
       Memo2.Lines[i] := Memo1.Lines[i] + '

</p>' 
      end;
    end; 
end;