Listview de yaklaşık 500 ve üzeri kayıt var;
Listview de en altıdaki kayıtla ilgili işlem yapıktan sonra save butonuyla ile databaseye kayıt işlemini tamamlıyorum, buraya kadar bir sıkıntı yok...
Fakat listeleme sonrasında en alttaki kayıt seçili iken tekrar verileri databaseden çekmek zorunda kaldığımdan, ve listview de ki kayıtlar (Items.Clear) ile silindiğinden bir anda en alttaki seçili satır iptal olup ve en üste gelmiş oluyor. databaseden verileri çekme sırasında nasıl bir yol izleyebilirim ki en alttaki seçili kayıttan en üste gelmemeli...
Kod: Tümünü seç
procedure TForm1.ArsivListele(Sender: TObject);
begin
Close;
SQL.Clear;
SQL.Add('Select * From ARSIV');
Prepare;
Open;
ArsivListView.Items.Clear;
while Not Eof do
begin
ArsivListView.Items.BeginUpdate;
try
with ArsivListView.Items.Add do
begin
SubItems.Add(FieldByName('URUN').Value);
SubItems.Add(FieldByName('NOTLAR').AsString);
SubItems.Add(FieldByName('KATEGORI').AsString);
SubItems.Add(FieldByName('ZEMINRENK').AsString);
SubItems.Add(FieldByName('YAZIRENK').AsString);
SubItems.Add(FieldByName('YAZITIPI').AsString);
SubItems.Add(DateToStr(FieldByName('TARIH').Value));
SubItems.Add(IntToStr(FieldByName('ID').AsInteger));
Next;
end;
finally
ArsivListView.Items.EndUpdate;
end;
end;
end;
end;