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

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

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

Код:

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

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

Код:

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...

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