Einzelnen Beitrag anzeigen

capo

Registriert seit: 7. Jul 2006
453 Beiträge
 
Delphi 11 Alexandria
 
#1

Listviews als HTML-Datei speichern

  Alt 26. Nov 2007, 19:16
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
Hotte
  Mit Zitat antworten Zitat