|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
перенос данных из stringgrid в memo
Помогите, пожалуйста!!!!!!!!
я делаю удаление из базы данных, то есть все содержимое стринггид, делаю так Код:
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; Код:
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.текст); или же есть варианты удаление по стринггриду Последний раз редактировалось Admin, 04.02.2013 в 13:25. |
#2
|
||||
|
||||
Если надо такое удаление, то тогда так:
Код:
dm.ado_q.SQL.Add('where table1_id in ('+memo1.text+')'); Для грида: Код:
strngrd1.Selection Заместо мемо можно использовать StringList, просто в качестве delimitter`а поставить запятую. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 04.02.2013 в 13:52. |
#3
|
|||
|
|||
а как это с stringlist или stringgrid selection
Дорогой, M.A.D.M.A.N а как это с stringlist или stringgrid selection, можно с кодом примеры плииз, я в делфи новичок
|
#4
|
||||
|
||||
В чем сложности?
Показать как гуглом, справкой и FAQ`ом пользоваться? StringList - то же самое что и memo.lines. Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 05.02.2013 в 09:12. |