[lady_N]

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

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

Код:

1 2 3 4

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) сначала записываю в мемо:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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.текст); или же есть варианты удаление по стринггриду

[M.A.D.M.A.N.]

Если надо такое удаление, то тогда так:

Код:

1	dm.ado_q.SQL.Add('where table1_id in ('+memo1.text+')');

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

Код:

1	strngrd1.Selection

Там границы выделенной области, из нее можно достать номера строк.

Заместо мемо можно использовать StringList, просто в качестве delimitter`а поставить запятую.

[lady_N]

Дорогой, M.A.D.M.A.N а как это с stringlist или stringgrid selection, можно с кодом примеры плииз, я в делфи новичок

[M.A.D.M.A.N.]

В чем сложности?
Показать как гуглом, справкой и FAQ`ом пользоваться?
StringList - то же самое что и memo.lines.

Сообщение от lady_N

Дорогой, M.A.D.M.A.N...

Так не надо, я на такое не покупаюсь.