aşağıdaki kodda program kırılıyor. neden oldugu için çok araştırdım ama bulamadım. Yardımcı olabilirseniz sevinirim. İlginize şimdiden teşekkür ederim
saygılar
Kod: Tümünü seç
procedure TForm1.BitBtn1Click(Sender: TObject);
var
k : integer;
i ,E : string;
begin
Adotable1.Filtered := False;
AdoTable1.Open;
E := '';
for k := 0 to listbox1.items.count -1 do
E := E + 'Mal_grb = '+ chr(39) + trim(listbox1.Items[k])+ chr(39) + ' OR ' ;
delete (E,length(E)-3,length (E));
Adotable1.Filter := E;
Adotable1.Filtered := True;
end;
