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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"