Hey,
Ich möchte gerne in ein ListView zwei Spaltenbeschriftungen haben (ArtNr und Bezeichnung) und dann mit einer Schleife die Daten aus der
DB holen. Jeder Datensatz in eine Zeile. Über ShowMessage weiss ich dass die Daten richtig rausgeholt werden, nur werden Sie nicht richtig angezeigt.
Delphi-Quellcode:
procedure TArtikel.cxButton11Click(Sender: TObject);
var
x :Integer;
AN :Integer;
BZ :String;
Zeile :TListItem;
Spalte: TListColumn;
begin
LV1.Clear;
ADT_Artikel.First;
for x:=0 to ADT_Artikel.RecordCount-1 do
begin
AN := ADT_Artikel.FieldValues['ArtNr'];
BZ := ADT_Artikel.FieldValues['Bezeichnung'];
ShowMessage(''+IntToStr(AN)+' und '+BZ+'');
Zeile := LV1.Items.Add;
Zeile.Caption := IntToStr(AN);
ADT_Artikel.Next;
end;
end;
Kann mir jemand sagen wie ich meinen Code ergänzen muss damit es funzt?