DB den TListView aktarmak

[abdulkadir]

Merhaba
veritabınımdaki 1 alan adını ListView e yazdırmak istedim ama
alan adedi kadar en son kaydı yazıyor

simdiden tesekkürler

Kod: Tümünü seç

procedure Tbaglanti.Button1Click(Sender: TObject);
var
  I: Integer;
begin
    Liste.Items.Clear;
for I := 0 to Query1.RecordCount-1 do
begin
    Liste.Items.Add;
    Liste.Items.Item[I].Caption:=Query1.FieldByName('Bolumadi').AsString;
end;
end;

birde acaba bu işlem için dblistwiev veya dbtreeview componentleri ni bulabilirmiyim.

Herkese sevgiler

[fahrettin]

Kodaki önemli eksik kayıtlar arasında gezilmiyor. Yani Query1.Next yok...
Bir de bu işi while dongusu ile kayıt sonuna kadar yapmak daha pratik olur bence .

Kod: Tümünü seç

procedure Tbaglanti.Button1Click(Sender: TObject); 
begin 
  Liste.Items.Clear; 
  Query1.Close;
  Query1.Open; //Tabloyu bi refreh edelim belki yeni kayıtlar vardir....
  while not Query1.Eof do
  begin 
    Liste.Items.Add; 
    Liste.Items.Item[I].Caption:=Query1.FieldByName('Bolumadi').AsString; 
    Query1.Next;
  end; 
end; 

[abdulkadir]

Abi tesekkür ederim
Eline Saglık tamamdır


Hayırlı işler basarılar dilerim