ClientDataset Filtern

[nahpets]

Hallo,
ist zwar schon 'ne Weile her aber...

Zitat von Thomas F:

Funktioniert bei mir nicht, filtert immer nur nach einem Filter.

Delphi-Quellcode:

if RadioButton1.checked =true then
begin
database.ClientDataSet1.Filtered := False;
database.ClientDataSet1.Filter := 'Feld1=''12345''';
database.ClientDataSet1.Filtered := True;
end;

if RadioButton2.checked =true then
begin
database.ClientDataSet1.Filtered := False;
database.ClientDataSet1.Filter := 'Feld2=''6789''';
database.ClientDataSet1.Filtered := True;
end;

so könnte es gehen:

Delphi-Quellcode:

Var
  sFilter : String;
...

database.ClientDataSet1.Filtered := False;
if RadioButton1.checked then begin
  sFilter := 'Feld1=''12345''';
end;

if RadioButton2.checked then begin
  if sFilter <> '' then sFilter := sFilter + ' or ';
  sFilter := sFilter + 'Feld2=''6789''';
end;

if sFilter <> '' then begin
  database.ClientDataSet1.Filter   := sFilter;
  database.ClientDataSet1.Filtered := True;
end;