ListView ListItem und ListColumns Problem

[Sharky]

Hai Hansi,

schaue Dir mal diesen Code von mir an:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  spalte : TListColumn;
  zeile  : TListItem;
  AN :Integer;
  BZ  :String;
begin
  Lv1.Columns.Clear;  // Spalten löschen
  // Spalte 0 erzeugen
  spalte := LV1.Columns.Add;
  spalte.Caption := 'Artikelnummer';
  spalte.Width := 100;
  // Spalte 1 erzeugen
  spalte := LV1.Columns.Add;
  spalte.Caption := 'Bezeichnung';
  spalte.AutoSize := True;
  spalte.Width := -2;

// Ab hier wird das LV gefüllt.
  ADT_Artikel.First;  // Erster Datensatz
  while not (ADT_Artikel.Eof) do // Solange noch nicht am ende der Tabelle...
  begin
    AN := ADT_Artikel.FieldValues['ArtNr'];
    BZ := ADT_Artikel.FieldValues['Bezeichnung'];

    zeile := LV1.Items.Add;  // Neue Zeile
    zeile.Caption := IntToStr(AN);  // Spalte 0
    zeile.SubItems.Add(bz); // Spalte 1 (Alles ausser Spalte 0 sind SubItems)
    ADT_Artikel.Next;  // Nächster Datensatz
  end;
end;

Die Spalten (Columns) kannst Du natürlich auch zur Entwurszeit anlege. Dann brauchst Du den oberen Teil nicht.