Listviews als HTML-Datei speichern

[capo]

Ich würde gerne den Inhalt eines Listviews als HTML-Datei speichern.
Die Überschriften und die erste Spalte (Datum) sollen nicht mitgespeichert werden.
Das klappt mit dem Code soweit auch ganz gut.

Delphi-Quellcode:

procedure TMain.Button13Click(Sender: TObject);
var LCount1, LCount2: Integer;
    LListe: TStringlist;
    LStr: String;
begin
if SaveDialog1.Execute then
  begin
    LListe := TStringlist.Create;
    for LCount1 := 0 to ListView1.Items.Count - 1 do
    begin
     LStr := ' ';
      for LCount2 := 0 to ListView1.Items.Item[LCount1].SubItems.Count - 1 do
       LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'
';
      LListe.Add(LStr);
    end;
    LListe.SaveToFile(SaveDialog1.FileName);
    LListe.Free;
  end;
end;

Die Ausgabe im Browser sieht nun so aus:

Zitat:

Ich bin eine Überschrift
Ich bin ein Tagebucheintrag
Ich bin eine Überschrift 2
Ich bin ein Tagebucheintrag 2

Mein Problem ist es der Überschrift (Ich bin eine Überschrift) eine andere Formatierung zu geben als dem Text darunter (Tagebucheintrag) weil alles was aus dem Listview kommt über diese einzige Zeile gesteuert wird:

Delphi-Quellcode:

 LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'
';

Wie kann ich die erste Spalte ohne von der zweiten trennen, bzw, eine unterschiedliche Formatierung verwenden?

gruss vom capo

[Cyberbob]

Wenn die Überschrift immer in der selben Spalte ist oder du erkennen kannst, was die Überschrift ist, dann frag doch einfach darauf ab und Formatier das ganze.

Sowas zum Beispiel:

Delphi-Quellcode:

if LCount2 = 0 then
  LStr := LStr + '<ansicht>' + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'</ansicht>
'
else
  LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'
'

[capo]

Hallo Cyberbob,
und schon wieder etwas sehr wichtiges gelernt, ich sag jetzt nicht wie lange ich darüber nachgegrübelt habe.
Danke.
capo

[Namenloser]

Bei einem Listview würden sich je nach Ansicht auch Tabellen (table, tr, td, th) oder Listen (ol,ul,li) eignen.

[capo]

Stimmt..klappt auch damit :)
gruss capo