StringGrid1 StringGrid2

@Des15 · Регистрация: 27.03.2010

Студворк — интернет-сервис помощи студентам

Загружаю файл excel загружаю значения в массив и вывожу в StringGrid1.
Как сделать чтобы можно было выбрать ячейки в StringGrid1 и перенести их во второй StringGrid2?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(OpenDialog1->Execute())
   {
var_Load=CreateOleObject("Excel.Application");
var_Load.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , OpenDialog1->FileName.c_str() );
var_Load.OlePropertySet("Visible",false);
var_Sheet = var_Load.OlePropertyGet("ActiveSheet");
 
for (Row_Counter+1 ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter+1 ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
           StringGrid1->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Load.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Load = Unassigned;
 
 
 
 
 
 
 
 
 
}
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
      TRect &Rect, TGridDrawState State)
{
// if(Shift.Contains(ssShift)){
 
      StringGrid2->Cells[Column_Counter][Row_Counter] = StringGrid1->Cells[Column_Counter][Row_Counter];

@Bit_Man · 24.09.2012, 11:02

Сообщение от Des15

перенести их во второй StringGrid2

это смотря как тебе надо, все или по отдельности или строчку тока?

@Des15 · 24.09.2012, 13:44 **[ТС]**

Выделяю диапазон ячеек и при нажатии на кнопку выделенный диапазон должен перенестись в StringGird2. У меня получается переносить по одной ячейке. Ни как не могу найти, как сделать с диапазоном.

@SatanaXIII · 24.09.2012, 14:07

Сообщение от Des15

Выделяю диапазон ячеек и при нажатии на кнопку выделенный диапазон должен перенестись в StringGird2. У меня получается переносить по одной ячейке. Ни как не могу найти, как сделать с диапазоном.

Двойной цикл по номерам столбцов и строк выделенных ячеек?

@Bit_Man · 24.09.2012, 16:33

Сообщение от Des15

с диапазоном.

строку или выделенный(Selection)?
Строку перенести нет проблем: добавил строку и переноси по ячейкам. С выделенным диапозоном будет побольше мороки: просчитать сколько ты выделил строк и столбцов, и добавлять.

@QVO · 24.09.2012, 18:53

Для выделения нескольких ячеек необходимо, поставить свойство goRangeSelect в true
Пример во вложение.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "u_copy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        for (int i = 0; i < 5; i++ )
                for (int j = 0; j < 5; j++ )
                        StringGrid1->Cells[i][j] = i+j;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TGridRect rect;
        int k, l;
 
        rect = StringGrid1->Selection;
 
        for (int i = rect.Top, k = 0; i < rect.Bottom + 1; i++, k++ )
                for (int j = rect.Left, l = 0; j < rect.Right + 1; j++, l++ )
                        StringGrid2->Cells[k][l] = StringGrid1->Cells[i][j];
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@Des15 0 / 0 / 0 Регистрация: 27.03.2010 Сообщений: 5
	24.09.2012, 13:44 [ТС]
	Выделяю диапазон ячеек и при нажатии на кнопку выделенный диапазон должен перенестись в StringGird2. У меня получается переносить по одной ячейке. Ни как не могу найти, как сделать с диапазоном. 0