Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#2

AW: SubItems zu einem ListView hinzufügen

  Alt 23. Jul 2011, 13:19
Hallo und herzlich Willkommen in der

eine Frage, warum machst Du es so umständlich über mehrere Stringlisten. Ich würde die CSV-Datei in eine Stringlist laden und dann mit der Funktion explode jede Zeile einzeln aufteilen und dann die Werte mit der ListView vergleichen.

Hier ein Beispiel, wie Du SubItems hinzufügst. Diese musst Du aber noch für Deine Bedürfnisse anpassen :
Delphi-Quellcode:
var
  ListItem : TListItem
begin
  ListView1.Items.BeginUpdate;
  for i := 0 to 10 do
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := 'Erste Spalte';
    ListItem.SubItem.Add('Zweite Spalte');
    ListItem.SubItem.Add('Dritte Spalte');
    ListItem.SubItem.Add('Vierte Spalte');
    ListItem.SubItem.Add('Fünfte Spalte');
  end;
  ListView1.Items.EndUpdate;
end;
Die Zeilen mit ListItem.SubItem.Add kannst beliebieg auf die Größe Deiner ListView anpassen.

Der Sourcecode ist vielleicht nicht der sauberste Stil, sollte aber funktionieren, da einfach nur runtergeschrieben.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat