[lady_N]

Помогите, пожалуйста!!!!!!!!

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

Код:

    dm.ado_q.SQL.Clear;
    dm.ado_q.SQL.Add('delete from table1 ');
    dm.ado_q.SQL.Add('where table1_id in'  +(memo1.text));
    dm.ado_q.ExecSQL; 

а содержимое стринггрид(15, i) сначала записываю в мемо:

Код:

procedure Tdelete_orders_form.Button5Click(Sender: TObject);
Var
i,j: integer;    a:string;
begin
 for i:=1 to stringgrid1.RowCount -1 do
 begin
  if i>0 then
  memo1.Lines.Add('');
  for j := 1 to stringgrid1.RowCount -2 do
  begin if j>0 then
    a:=',' ;
    memo1.seltext:=(stringgrid1.Cells[15,i]+a) ;
 end;

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

но в мемо переносит данные без скобки, у меня должен быть
where table1_id in (мемо1.текст); или же есть варианты удаление по стринггриду