Помогите, пожалуйста!!!!!!!!
я делаю удаление из базы данных, то есть все содержимое стринггид, делаю так
Код:
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.текст); или же есть варианты удаление по стринггриду