• Registered: 2014-05-23
  • Posts: 114

Topic: Помощь с SQL запросом копирования из GRIDa в Memo

День добрый! Поиском по этому поводу нечего не нашел, можно как то SQL запросом при клике по записи в таблице скопировать данные в Memo?
Мысль пришла после того, как физически через CTRL+C - CTRL-V получается скопировать, а хочется по клике по нужной записи.
Подскажите, если осуществимо.

Данные:
Grid1, в ней отображаются поля (name, price) таблицы (Price)
memo1, memo2 соответствуют полям (name,price) таблицы (Uslugi)

2 Reply by mitrich45 (edited by mitrich45 2015-04-03 11:57:25)

  • Registered: 2014-05-23
  • Posts: 114

Re: Помощь с SQL запросом копирования из GRIDa в Memo

Нашел подходящий примерчик. Получилось копирование данных с 1 столбца в 1 мемо: 

procedure PRICE_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);

      var
  sCol, sRow:integer;
  CellText:String;
begin
  sCol:= PRICE.TableGrid1.SelectedColumn; //выбранная колонка
  sRow:= PRICE.TableGrid1.SelectedRow; //выбранная строка
  CellText:= PRICE.TableGrid1.Cells(sCol,sRow); //текст выбранной ячейки
  PRICE.Memo1.Text:= CellText; //присваиваем компоненту TEdit текст выделенной ячейки
  PRICE.Memo1.SelectAll; //выбираем все
  PRICE.Memo1.CopyToClipboard; //копируем в буфер
end;

Еще-бы разобраться как сделать так, чтобы при выделении всей строки из 2 столбцов данные вставлялись в так же 2 мемо.....

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Помощь с SQL запросом копирования из GRIDa в Memo

попробуйте так

procedure PRICE_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
  PRICE.Memo1.Text:= PRICE.TableGrid1.Cells(0, ARow); //текст выбранной ячейки в первой колонке
  PRICE.Memo2.Text:= PRICE.TableGrid1.Cells(1, ARow); //текст выбранной ячейки во второй колонке
end;
Dmitry.
  • Registered: 2014-05-23
  • Posts: 114

Re: Помощь с SQL запросом копирования из GRIDa в Memo

Спасибо Дмитрий!
Работает!