Wie filtern in TClientDataSet ?

[madina]

Hallo,

ich habe ein TCDS mit 2 String Felder sStadt und sLand.
ich will wie folgt filtern und es klappt nicht an der else zweig ???????????

Delphi-Quellcode:

var s  : string;
    cds: TClientDataSet;

cds.Filter:= 'sLand=Deutschland';
cds.Filtered:= true;
s:= 'Berlin';

while cds.eof=false do
  begin
    if cds.locate(sStadt, 'Berlin', ...) then
      begin
        if (MessageBox('wollen Sie ändern' ..., Yes)) then
          begin
            cds.edit;
              cds['sStadt']:= 'Hamburg'
            cds.post;
          end
        else begin // neu Filter setzen ohne die städte im MessageBox Zweig-Nein ??????????????????
               s:= s+cds['sStadt'];
               cds.Filter  := 'sLand=Deutschland and sStadt <> s'; //'sLand=Deutschland and sStadt <> (Berlin, München, ..)
               s:= s+',';
               cds.Filtered:= true;
             end;
      end
  end;

mfg