Фильтрация записей в таблице

[TaTT DoGG]

можно немного поподробнее, у меня стала выбиваться другая ошибка...

чёт я не могу въехать в этот метод
когда он срабатывает? мне нужно это всё оформить в Edit1(OnChange)

Stilet
вот исходник
срочно нужен фильтр такой как я описал выше
помоги плиз, если тебя это не затруднит

[Stilet]

Хорошо, помогу. Смотри в твоем случае примерно так:

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   accept:=(pos(Edit1.Text,DataSet.Fields[0].AsString)<>0) or (Edit1.Text='');

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable1.Filtered:=true;
end;

Этот код по редактированию эдита фильтрует все записи в первом поле которых не содержится введенная подстрока

[TaTT DoGG]

работает, но немного не так как хотелось бы
нужно чтобы если я нажимаю на w оставались только те записи которые начинались бы на w

о, изменил <>0 на =1 и всё заработало, спс
тогда ещё вопрос, как в этом случае сделать так, чтобы не учитывался регистр букв

[Stilet]

Ну а подумать? Я ж тебе условие фильтра уже дал, там POS только замени.
Или ты очередной халявщик?

[TaTT DoGG]

всё, решил проблему через ещё одно условие
в общем получилось вот так:

accept:=(pos(UpperCase(Edit1.Text),DataSet.Fields[0].AsString)=1) or
(pos(LowerCase(Edit1.Text),DataSet.Fields[0].AsString)=1) or
(Edit1.Text='');

[Stilet]

Лучше так:

accept:=(pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(DataSet.Fields[0].AsString))=1) or  (Edit1.Text='');

[Gorychev]

procedure TForm1.ADOTable1FilterRecord(DataSe t: TDataSet; var Accept: Boolean);
var FieldVal:string; i: integer; b: boolean;
begin
FieldVal := DataSet['имя_столбца'];
for i:=1 to length(edit1.text) do
begin
if (FieldVal[i] = edit1.Text[i]) then b:=true else b:=false;
if b=false then break;
end;
Accept := b;
end;
Еще один вариант.

[Stilet]

Еще один вариант.

Для этого есть функция copy.

[Gorychev]

Спасибо за подсказку Stilet. Я серьезно. Все что я понаписывал можно свести к одной строке

Accept := copy(AnsiUpperCase(DataSet[имя_столбца]), 1, length(edit1.text)) = AnsiUpperCase(edit1.Text);

[TaTT DoGG]

возникла ещё одна проблемка с фильтрацией
есть дата: 12.04.2009 (DataSet.Fields[1])
как вывести все записи из диапазона дат 12.04.2009-12.05.2009 (ps: 12 число не изменяется)

пробовал через accept, но видно это не для моего случая


UPD:
сделал процедурку... она находит записи которые не в этом дипозоне, но я не знаю как скрыть эту запись...
как это сделать? и что будет делать программа, если процедуру запустить ещё раз (будут ли просматриваться скрытые записи)

procedure TForm1.ChangeDate;
var
  i:integer;
begin
  AdoTable1.First;
  for i := 1 to ADOTable1.RecordCount do
    begin
      if((StrToDate(ADOTable1.FieldByName('Дата').Value)<StrToDate('15.02.2009')) or (StrToDate(ADOTable1.FieldByName('Дата').Value)>=StrToDate('12.03.2009'))) then {скрыть запись}
      ADOTable1.Next;
    end;

end;