DataSet.Filter funktioniert nicht

[PASST]

Hallo allerseits,

ich versuche jetzt schon seit einer Stunde die Daten in einer MemoryTable zu filtern. Als MemoryTable verwende ich kbmMemTable . Die Tabelle ist brav mit Daten gefüllt, aber wenn ich den folgenden Filter anwende, werde mir immer alle Daten angezeigt.

Delphi-Quellcode:

  with memTab do
  begin
    Filter := 'firma="SBH"';
    FilterOptions := [foCaseInsensitive];
    filtered := true;
  end;

Was mache ich falsch?

Gruß
Peter

[mkinzler]

Delphi-Quellcode:

Filter := 'firma=' + QuotedStr('SBH');

[PASST]

Das hilft leider auch nicht.

Ich lasse mir Daten des memTab in einem Grid anzeigen. Wenn ich den Filter aktiviere, springt der Satzzeiger auf den ersten Record, aber es werden keine Sätze gefiltert.

[PASST]

Ich möchte was grundsätzliches zu DataSet.Filtern fragen. Ich meine irgendwann in der Hilfe gelesen zu haben, dass der Einsatz von Filtern nur unter der Bedingung funktioniert, wenn gleichzeitig ein entsprechend aufgebautet Index vorhanden ist. Hängt das vielleicht von meinem Datenbank- bzw. Tabellentyp (dBase, Paradox, ...) ab? Und kbmMemTable verhält sich entsprechend?

[PASST]

Juchu, et lüppt ;) Aber etwas anders als bisher erwähnt. Anscheinend mag das MemoryTable nicht die Filter-Eigenschaft, stattdessen muss ich mit dem Ereignis OnFilterRecord arbeiten. Das schaut dann so aus:

Delphi-Quellcode:

  ...
  with memTab do
  begin
    filtered := true; // Jetzt greift das Ereignis memTab.OnFilterRecord
    Refresh;
  end;
  ...

procedure TForm1.memTabFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  memTab.fieldbyname('firma').asstring := 'SBH';
end;