1 (edited by kovalenko 2017-10-11 09:48:52)

Topic: Копирование выбранной строки/строк из Grida в Memo.Решено.

Здравствуйте. Может плохо искал, но не нашёл. Подскажите, как скопировать в Memo выбранную строку из грида. Не столбец или столбцы, и не всю информацию из грида, а именно выбранную строку.
Спасибо!!!

надо идти вперёд....

2 (edited by kovalenko 2017-06-13 12:30:56)

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

kovalenko wrote:

Здравствуйте. Может плохо искал, но не нашёл. Подскажите, как скопировать в Memo выбранную строку из грида. Не столбец или столбцы, и не всю информацию из грида, а именно выбранную строку.
Спасибо!!!



Может и по "деревянному", но сделал так (может кому пригодиться):


procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Text:= frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow);
    end;

Плюс наверное в том, что можно выбирать в строке для копирования только те столбцы, которые надо скопировать.

надо идти вперёд....

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

Все правильно, по другому и не сделать.

Dmitry.

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

DriveSoft wrote:

Все правильно, по другому и не сделать.

Спасибо. Чему-то учимся)))!

надо идти вперёд....

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

kovalenko wrote:
kovalenko wrote:

Здравствуйте. Может плохо искал, но не нашёл. Подскажите, как скопировать в Memo выбранную строку из грида. Не столбец или столбцы, и не всю информацию из грида, а именно выбранную строку.
Спасибо!!!



Может и по "деревянному", но сделал так (может кому пригодиться):


procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Text:= frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow);
    end;

Плюс наверное в том, что можно выбирать в строке для копирования только те столбцы, которые надо скопировать.


Дмитрий появился ещё вопрос. В гриде сделал мультиселект, как скопировать в мемо выбранные строки грида?

надо идти вперёд....

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

kovalenko wrote:
kovalenko wrote:
kovalenko wrote:

Здравствуйте. Может плохо искал, но не нашёл. Подскажите, как скопировать в Memo выбранную строку из грида. Не столбец или столбцы, и не всю информацию из грида, а именно выбранную строку.
Спасибо!!!



Может и по "деревянному", но сделал так (может кому пригодиться):


procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Text:= frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow);
    end;

Плюс наверное в том, что можно выбирать в строке для копирования только те столбцы, которые надо скопировать.


Дмитрий появился ещё вопрос. В гриде сделал мультиселект, как скопировать в мемо выбранные строки грида?

Всё, вроде разобрался. Может кому понадобится

procedure frmCompleteness_Button7_OnClick (Sender: string; var Cancel: boolean);
var
   i,c: integer;
   iColumn: integer;
begin
    iColumn := frmCompleteness.TableGrid1.Columns.Count-2;
    c := frmCompleteness.TableGrid1.RowCount - 1;
    for i :=0 to c do
    if (frmCompleteness.CheckBox1.Checked=True) and (frmCompleteness.TableGrid1.Selected[i]) then
  begin
   frmApplication.textcomplet.Lines.Add(frmCompleteness.TableGrid1.Cells[iColumn, i] );
end;
   frmCompleteness.Close;
end;
надо идти вперёд....

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

kovalenko wrote:
kovalenko wrote:

Здравствуйте. Может плохо искал, но не нашёл. Подскажите, как скопировать в Memo выбранную строку из грида. Не столбец или столбцы, и не всю информацию из грида, а именно выбранную строку.
Спасибо!!!



Может и по "деревянному", но сделал так (может кому пригодиться):


procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Text:= frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow);
    end;

Плюс наверное в том, что можно выбирать в строке для копирования только те столбцы, которые надо скопировать.

Как сделать так, что бы информация с каждой строки грида отображалась с новой строки в Мемо?

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow));
end;
Dmitry.

9 (edited by Bullet3203 2017-11-27 12:30:40)

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

DriveSoft wrote:
procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow));
end;

Спасибо но немного не то... возможно я не так объяснил.
Когда выделяешь нужную строку в гриде (одну), в строке например 4 столбца, то в Мемо информация с столбцов данной строки грида располагалась с новой строки.

Re: Копирование выбранной строки/строк из Grida в Memo.Решено.

procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(0, ARow));
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(1, ARow));
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(2, ARow));
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(3, ARow));
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(4, ARow));
end;
Dmitry.