Добавление из edit в stringgrid!

@YRIK44 · Регистрация: 18.12.2012

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

Привет всем! Помогите с добавлением из таблицы Edit в StringGrid. В таблице заполнена первая сторока нужно заполнять только пустые, сама же таблица берется из файла Excel таким образом:

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
 void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
AnsiString dir, dire ;
         // dir = ExtractFilePath(Application->ExeName);
            dire = "D:\\ld.xls";
Variant var_Excel=CreateOleObject("Excel.Application");
 var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , dire.c_str()  );   var_Excel.OlePropertySet("Visible",false);
 Variant var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
int Max_Row =14;
int  Max_Column=6;
int Column_Counter=0;
int Row_Counter=0;
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
            for (Column_Counter ; 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_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
}
 
//---------------------------------------------------------------------------

@mish_k98 · 18.06.2014, 17:45

так в чём имеено заключается проблема?проходиш циклом по всех ячейках и проверяеш ифом не пустая ли она.если пустая то добавляешь нужные тебе даные

@BRcr · 18.06.2014, 19:59

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

проходиш циклом по всех ячейках и проверяеш ифом не пустая ли она.если пустая то добавляешь нужные тебе даные

Только лучше не по ячейкам, а по строкам. Из массива Rows берем строку в виде стринглиста и смотрим на DelimitedText - если он пустой, то и строка пустая.

@YRIK44 · 19.06.2014, 21:27 **[ТС]**

А как именно ето сделать?

@BRcr · 23.06.2014, 11:31

Для начала поясни, что тебе в точности нужно, а-то код твой почитал и не совсем он стыкуется с постановкой задачи. Давай в таком ключе: "в ячейке стринггрида такой-то есть текст, следовательно текст из эдита нужно поместить в ячейку такую-то" и тд - чтоб всем все было предельно ясно.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@mish_k98 164 / 49 / 27 Регистрация: 04.06.2013 Сообщений: 636
	18.06.2014, 17:45
	так в чём имеено заключается проблема?проходиш циклом по всех ячейках и проверяеш ифом не пустая ли она.если пустая то добавляешь нужные тебе даные 0

@YRIK44 4 / 2 / 2 Регистрация: 18.12.2012 Сообщений: 11
	19.06.2014, 21:27 [ТС]
	А как именно ето сделать? 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	23.06.2014, 11:31
	Для начала поясни, что тебе в точности нужно, а-то код твой почитал и не совсем он стыкуется с постановкой задачи. Давай в таком ключе: "в ячейке стринггрида такой-то есть текст, следовательно текст из эдита нужно поместить в ячейку такую-то" и тд - чтоб всем все было предельно ясно. 0