procedure TForm1.FormCreate(Sender: TObject);
begin
// Заполняем таблицу
StringGrid1.Cells[1,1]:='1';
StringGrid1.Cells[2,1]:='2';
StringGrid1.Cells[3,1]:='3';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=StringGrid1.Selection.Left to StringGrid1.Selection.Right do begin
// Переносим значения ячеек из одной таблицы в другую
StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,StringGrid1.Row];
end;
end;
Как скопировать строку из одного Stringgrida в другой?
Как скопировать выделенную строку из одного Stringgrida в другой?
Для определения границ выделенной строки используйте атрибут Selection у StringGrid. В нем есть атрибуты Left - координата первой выделенной ячейки по оси X, Right - координата последней выделенной ячейки по оси X, Top и Bottom соответственно координаты ячеек по оси Y, но если нужна только одна строка можно использовать атрибут Row.
И далее проходите циклом все ячейки и переносите их в соответствующие в другой таблице, например:
Успехов!
И далее проходите циклом все ячейки и переносите их в соответствующие в другой таблице, например:
Код:
Успехов!
Огромное вам спасибо!!!! Вы всегда отлично все объясняете!!!!