TADODataset.DeleteRecords(arFiltered) umkehren

[heri]

Hallo dp'ler

wer ist so schlau und kann folgende Funktion "umkehren"?!

TADODataset.DeleteRecords(arFiltered) löscht alle gefilterten Datensätze!
Nun ja - ich möchte aber alle Records welche eben nicht im Filter sind löschen?

also sowas wie TADODataset.DeleteRecords(NOT IN Filtered)...

jemand eine Idee?
Thx a lot!

[marabu]

Hallo,

du kannst entweder mit dem DataSet selbst arbeiten:

Delphi-Quellcode:

var
  sFilter: String;
begin
  with DataSet do
  begin
    sFilter := Filter;
    Filtered := False;
    Filter := Format('NOT (%s)', [sFilter]);
    Filtered := True;
    DeleteRecords(arFiltered);
    Filtered := False;
  end;
end;

Oder du arbeitest mit der Methode Clone().

Grüße vom marabu