Filter - Baskı Önizleme

Filter - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Filter (/showthread.php?tid=630)

Filter - hido - 05-02-2017

Selam.

Mobil uygulamada listview içinde arama yaptığımızda verileri db'ye kaydetmemiş olsa bile listview'den veriler silinmiyor;
Acaba VCL için de bu mümkü mü? db'ye kaydetmeden listview içinde belirli bir items de filter yaptırabilimiyiz...

Cvp: Filter - İbrahim - 06-02-2017

Selamün Aleyküm;

Ben VCL'yi iyi bilmiyorum lakin sana şöyle bir mantık gösterebilirim (ListBox için):

İlk önce bir tane SearchBox ve ListBox ekle. Sonra Form1 sınıfının üyelerine registeredArray : TStringList; adlı bir üye ekle.
Daha sonra şu kodları incele:

procedure TForm1.FormCreate(Sender: TObject);
begin
 registeredArray := TStringList.Create;
 registeredArray.SetStrings(ListBox1.Items);
end;

procedure TForm1.SearchBox1Change(Sender: TObject);
var
 item : string;
begin
 ListBox1.Items.BeginUpdate;
 ListBox1.Items.Clear;

 if SearchBox1.Text <> '' then
 begin
   for item in registeredArray do
   begin
     if item.Contains(SearchBox1.Text) then
       ListBox1.Items.Add(item);
   end;
 end
 else
   ListBox1.Items.AddStrings(registeredArray);

 ListBox1.Items.EndUpdate;
end;

ListView'e kendin bu şekilde uyarlayabilirsin.