Listview'e DB kayıtlarına göre nesne ekleme?

[tachibana]

Merhabalar...
Derdim başlıktanda anlaşılacağı gibi veritabanı ve listview le ilgili. Formun açılışında veritabanındaki kayıt sayısında listview e nesne ekleyecem ve bu nesnelerin isimleri table ın herhangi bir field ın daki kayıtlar olacak. Ben alttaki gibi bişe yaptım ama kayıt sayısında nesne ekleyip isimlerini ilk kayıttan alıo sadece. Yardımcı olursanız sevinirim...

var
i : integer;
kayit : integer;
begin;
kayit := table1.RecordCount;
for i := 1 to kayit do
listview1.AddItem(table1field1.AsString, listview1.Items[kayit]);
TABLE1.MoveBy(1);
next;

[lazio]

Kod: Tümünü seç

var
  xitem : TListItem;
begin
  table1.first;
  while not table1.eof do
  begin
    xitem := LWDoktor.Items.Add;
    xitem.Caption := table1field1.AsString;
    //xitem.SubItems.Add();
    table1.Next;
  end;
end;

[tachibana]

çalışıyor çok saol dostum. insan kodları bilmeyince mantık da işe yaramıyor.