filtr TTable - problem z *

to dziala

begin
Table1.Filter:='NAZWISKO='+QuotedStr(Edit1.Text+'*');
end;

to dzial wowczas jak mamy poczatek ciagu a co zrobic w przypadku gdy mam srodek np ciagu i chce <ort>znaleŹĆ</ort> pola ktore spelaniaja to kryteria
probowalem:

begin
Table1.Filter:='NAZWISKO='+QuotedStr(''+Edit1.Text+'');
end;

ale to kurcze nie dziala - czemu, i jezeli odp. brzmi no bo tak - to jak to rozwiazac... ??
pozdr

Zrób filtrowanie w TTable.OnFilterRecord.
Wówczas mogłoby to wyglądać tak:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := Pos(Edit1.Text, DataSet.FieldByName('NAZWISKO').AsString) > 0;
end;

Jeśli nie chcesz uwzględniać wielkości znaków zastosuj dodatkowo UpperCase lub LowerCase.

dobrze wiedziec ze i tak mozna :) pozdr