Фильтрация числовых значений в DBgrid

[girz]

Имеем базу данных в delphi подключенную через ado
используется компоненты ado conection, ado table, datasource, Dbgrid
Компоненты через которые осуществляется фильтрация,
combobox-выбор поля для фильтраций, edit - значение фильтраций.
Фильтрация поиска по словам работает, код:
procedure TForm2.Edit1Change(Sender: TObject);
begin
if ((Length(Edit1.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
ADOTable1.Filtered:=false;
if RadioButton1.Checked then
ADOTable1.Filter:=Combobox1.Text + ' LIKE '+ #39 + Edit1.Text + '%' + #39
else
ADOTable1.Filter:=Combobox1.Text + ' LIKE '+ #39+ '%' + Edit1.Text + '%' + #39;
ADOTable1.Filtered:=true;
end
else ADOTable1.Filtered:=false;
end;

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

[Neeter]

может быть так, как сказал Stilet пониже:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if ((Length(Edit1.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
ADOTable1.Filtered:=false;
if RadioButton1.Checked then
ADOTable1.Filter:=Combobox1.Text + ' = '+ #39 + Edit1.Text + '%' + #39
else
ADOTable1.Filter:=Combobox1.Text + ' = '+ #39+ '%' + Edit1.Text + '%' + #39;
ADOTable1.Filtered:=true;
end
else ADOTable1.Filtered:=false;
end;

[Stilet]

IntToStr(Edit1.Text)

Сам то понял что написал? Edit.text имеет тип строки а не числа

так как при вводе числа выдается ошибка или поиск не работае

LIKE нужен только при строковых поисках. при числовой фильтрации если у тебя поле числовое пиши знак равенства.

[girz]

Выдает такую ошибку
There is no overloaded version of 'IntToStr' that can be called with these arguments

[Neeter]

Оплошал чуть-чуть) бывает...
Вверху свое сообщение отредактировал.

[girz]

После замены like на равно =
Пишет не совподение типов.

[Neeter]

Код покажите

[girz]

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, ExtCtrls, DBCtrls,
ImgList, ToolWin, Buttons;

type
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
DBGrid2: TDBGrid;
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
ImageList1: TImageList;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
ComboBox1: TComboBox;
RadioButton2: TRadioButton;
RadioButton1: TRadioButton;
GroupBox2: TGroupBox;
ComboBox2: TComboBox;
Edit2: TEdit;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ToolButton1Click(Sender: TObject);
begin
ADOTable1.First;
end;

procedure TForm2.ToolButton3Click(Sender: TObject);
begin
ADOTable1.Prior;
end;

procedure TForm2.ToolButton5Click(Sender: TObject);
begin
ADOTable1.Next;
end;

procedure TForm2.ToolButton7Click(Sender: TObject);
begin
ADOTable1.Last;
end;

procedure TForm2.ToolButton9Click(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure TForm2.ToolButton11Click(Sender: TObject);
begin
ADOTable1.Insert;
end;

procedure TForm2.ToolButton13Click(Sender: TObject);
begin
ADOTable1.Edit
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
if ((Length(Edit1.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
ADOTable1.Filtered:=false;
if RadioButton1.Checked then
ADOTable1.Filter:=Combobox1.Text + ' = '+ #39 + Edit1.Text + '%' + #39
else
ADOTable1.Filter:=Combobox1.Text + ' = '+ #39+ '%' + Edit1.Text + '%' + #39;
ADOTable1.Filtered:=true;
end
else ADOTable1.Filtered:=false;
end;

end;



end.

[Neeter]

Может вот так:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if ((Length(Edit1.Text) > 0)and(Length(ComboBox1.Text) > 0)) then
begin
 ADOTable1.Filtered:=false;
 if RadioButton1.Checked then
  ADOTable1.Filter:=Combobox1.Text + ' = ' + Edit1.Text + '%'
 else
  ADOTable1.Filter:=Combobox1.Text + ' = '+ '%' + Edit1.Text + '%';
 ADOTable1.Filtered:=true;
 end
 else ADOTable1.Filtered:=false;
end;

[Stilet]

Знак процента зачем?
Поиск в числовом поле поперхнется им...

  ADOTable1.Filter:=Combobox1.Text + ' = ' + Edit1.Text;

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