Cara membuat search (cari data) menggunakan ZTable dan edit di Delphi ( tanpa error menggunakan kutip )

Kali ini saya akan memberi tahu kalian bagaimana caranya membuat Filter Data dari DBGrid menggunakan ZTable (Zeos Lib) pada delphi, sebelum saya langsung ke kodenya saya akan memberi tahu apa fungsi dari Filter data, fungsinya adalah untuk mempercepat proses pencarian data di database apabila data yang ada pada database sangat banyak, coba kalian bayangkan apabila pada suatu database ada beribu-ribu data dan anda di suruh mencari data tertentu anda akan kesulitan mencarinya xD, ok langsung saja ke pembahasan utama kodenya ada di bawah :

var
  cari : string;
begin
cari := '*'+edit1.Text+'*';
  if edit1.Text <> '' then //Jika edit1.text tidak kosong maka lakukan
    begin
      ztable1.Filtered := false; //ztable dalam kondisi tidak terfilter
      ztable1.Filter := 'nama LIKE '+quotedstr(cari)+' or jabatan LIKE '+quotedstr(cari)+'' ;
      //quotedstr berguna untuk mengatasi inputan menggunakan kutip ( ' )
      //Perhatikan "nama" dan "jabatan" itu adalah nama field, dan proses filter akan di lakukan pada field "nama" atau "jabatan"
      ztable1.Filtered := true; //ztable dalam kondisi terfilter
    end
  else
    begin
      ztable1.Filtered := false; //ztable dalam kondisi tidak terfilter karena edit1.text kosong
    end
end;

letakan kode di atas pada even onchange pada konponen edit atau tinggal klik dua kali komponen editnya.

Selamat Mencoba :D