Filter do delphi

Delphi

14/10/2014

Boa tarde amigos

Eu sou novo em programação, estou tentando fazer um filtro no clientdataset em um campo integer que pode ter um numero, ou varios numero como no exemplo abaixo

Ex: quero selecionar todos os registro com o numero 1102 e 2102 etc..., quando é apenas um eu consigo quando é mais de um não consegui se alguem puder me ajudar eu agradeço segue o código que eu montei.

procedure TForm2.CheckListBox1ClickCheck(Sender: TObject);
var i : Integer; filtro : string;

begin
filtro := '';
for I := 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[i] then
begin
if filtro = '' then
begin
filtro := CheckListBox1.Items[i];
end
else
begin
filtro := filtro + ',' + CheckListBox1.Items[i];
end;
end;
end;
if filtro = '' then
CDS_capa_item.Filter := ''
else
begin
CDS_capa_item.Filtered := False;
CDS_capa_item.Filter := 'IdCodFiscal = ' + QuotedStr(filtro); //<- assim funciona mais so pega um numero
// CDS_capa_item.Filter := 'IdCodFiscal in (' + QuotedStr(filtro) + ')'; //<- assim não funciona
CDS_capa_item.Filtered := True;
end;
end;
Alexandre Assis

Alexandre Assis

Curtidas 0
POSTAR