BorlandTalk.com

Wolfgang Zehntner · Guest

Hello,

I got a paradox table and I am trying to set
some filter conditions.
the table has 11 fields of type TDBEdit
and 1 field of type TDBMemo
When I set a filter condition for a TDBEdit-field,
everthing works as expected:

with DataModule1.DataSource1.Dataset do
begin
Filter := 'Field1 = 'A*''; // list only records starting with 'A'
Filtered := True;
end

When I try to set a filter condition for the TDBMemo,
I get an error message. the Message is in german:

"Fehlende Typübereinstimmung im Ausdruck"
and I am not sure how to translate it to english,
something like "Missing typeconformity in expression"

with DataModule1.DataSource1.Dataset do
begin
Filter := 'Field12 = 'A*'';
// ^^^ here I get the error message, when field12 is of type TDBMemo
Filtered := True;
end

Can anybody help me on this or does filtering
not work for TDBMemos ?

regards
Wolfgang

Dell Stinnett · Guest

I think you may have to use the "OnFilterRecord" event handler for memos
instead of the Filter Property. Something like this:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if Dataset.Filter = '' then //the Filter is blank
Accept := copy(DataSet.FieldByName('Field12').AsString, 1, 1) = 'A';
end;

-Dell

Wolfgang Zehntner · Guest

Dell Stinnett schrieb: