[Pepper22]

Ребята, нужно создать запрос на СКЛ, чтобы при вводе в Едит и по клику кнопки в программе выводил автомобиль с ценой меньше заданной. что-то не могу понять как это правильно сделать с типами данных.. вот что набрасал уже кстати колонка COST_OF_Day имеет денежный тип.. в общем поглядите..

Код:

procedure TForm2.Button1Click(Sender: TObject);
Var money:real;
begin
with Query1 do
  begin
   close;
   sql.Clear;
   sql.Add('select * from auto where cost_of_day<=:cost_of_day');
   Prepare;
   Params[0].asstring:=Edit1.text;
     ParamByName('cost_of_day').asString:=edit1.text;
     open;
Edit1.Clear;
end;

Админ: Пользуемся тегами для оформления кода!