[Alex-25]

помогите, пожалуйста, в чем ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

unit Unit3;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons, Mask, DBCtrls;   type   TForm3 = class(TForm)     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     ComboBox1: TComboBox;     Edit1: TEdit;     procedure BitBtn2Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form3: TForm3;   implementation   uses Unit1;   {$R *.dfm}   procedure TForm3.BitBtn2Click(Sender: TObject); begin   form3.Close;   Form1.Enabled:=true;   Form1.Button1.Enabled:=true;   form1.Button2.Enabled:=true;   form1.Button3.Enabled:=true; end;     procedure TForm3.BitBtn1Click(Sender: TObject); begin   If not Form1.DBGrid1.DataSource.DataSet.Locate(Form3.ComboBox1.Text,([Form3.Edit1.Text]),[]);   Then ShowMessage('Поиск не дал результатов :('); end;   end.

lmikle: Пользуемся тегами.

[lmikle]

Ошбка - в прокладке.
Ты бы хоть описал что не так работает. На первый взгляд все правильно.
Возможно, надо доп флаги указать, что бы искало по части текста и без учета регистров.

[Alex-25]

При проверке выдает ошибку
[Ошибка] Unit3.pas(44): Ordinal type required

я пробовал прописывать тип, не дало результатов

[Страдалецъ]

Код:

1	DataSet.Locate(Form3.ComboBox1.Text,([Form3.Edit1.Text]),[]);

Вы откуда такой синтаксис нашли? Это что? - ([Form3.Edit1.Text])
Видимо было в исходном примере: VarArrayOf([Form3.Edit1.Text])

[Alex-25]

нет,у меня dbgrib на форме 1, а окно поиска на форме 3, где есть эдит и комбобокс. задача такова, что в каком из столбцов дбгрида поиск текста в эдите зависит от комбобокса.
а с vararrayof пробовал, не получается, выдает ошибку

[Ошибка] Unit3.pas(44): 'THEN' expected but ';' found
[Ошибка] Unit3.pas(50): Statement expected but end of file found
[Фатальная ошибка] Project1.dpr(7): Could not compile used unit 'Unit3.pas'

[Страдалецъ]

В Locate можно передавать несколько значений для поиска и тогда нужно эти значения завернуть в VarArrayOf(). Либо одно значение и тогда это просто строка:

Код:

1	DataSet.Locate(Form3.ComboBox1.Text,Form3.Edit1.Text,[]);

ПС: А ваши ошибки вообще к синтаксису локейта не имеют никакого отношения.

[Alex-25]

попробовал и так и этак, результат один и тотже

[ApxaHGe1]

Сообщение от Alex-25

попробовал и так и этак, результат один и тотже

Код:

1	If not Form1.DBGrid1.DataSource.DataSet.Locate(Form3.ComboBox1.Text,([Form3.Edit1.Text]),[]);

У тебя тут в конце строки знак ;
Убери его

[Alex-25]

в дбгриде (форма1) поля берутся из мдб. в таблице поля называютя "Код товара" и "Наименование товара", а в комбобоксе окна Поиск (форма3) - "По коду" и "По наименованию". как указать правильно в каком поле искать, могу ли я искать по номеру поля через "Columns" ? и где (в какой строке это прописать) ?
это будет примерно так, просьба подсказать

if Form3.ComboBox1.Text='По наименованию'
then Form1.DBGrid1.DataSource.DataSet.Locate(Form1.DBGr id1.Columns[0],VarArrayOf([Form3.Edit1.Text+'%']),[]);

[Alegun]

Можно подставить имя поля для поиска по индексу в комбобоксе

Код:

1	DBGrid1.DataSource.DataSet.Locate(DBGrid1.DataSource.DataSet.Fields[ComboBox1.ItemIndex].FieldName, Edit1.Text,[]);

З.Ы. Ваш код нуждается в оптимизации, поскольку такие длинные конструкции особливо обращение к гридовому поставщику через эту же сетку всегда являлось и является моветоном