Сохранение строк в столбец в txt файле - StringGrid

@Nekrom · Регистрация: 03.02.2017

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

Привет всем! Есть программа, которая загружает данные из Excel в StringGrid, а затем сохраняет в txt файле. Трабл в том, что необходимо сохранить в txt файле в определенном виде. Первый столбец это № ряда, второй столбец № поля, третий столбец это размер, а четвертый считанные значения из StringGrid-a. Пример см в скриншотах. Первая картинка это как сохраняется а данный момент ( то есть точно так, как лежит в StringGrid-е).

Сохранение строк в столбец в txt файле - StringGrid

А вторая картинка так, как должно быть. Первый столбец это № ряда, второй столбец № поля, третий столбец это размер, а четвертый считанные значения из StringGrid-a. Первые 3 столбца всегда с такими значениями (можно сказать статичные), а четвертый уже загружается из StringGrid-a.

Вот код сохранения в txt файл. Подскажите что добавить, как сделать. Ломаю голову уже несколько дней.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Button2Click(TObject *Sender) {
if( SaveDialog1->Execute() )
 {
  SaveDialog1->FileName;
 }
    L->Clear();
    L->Add(1);
    for (int i = 1; i < StringGrid1->RowCount; i++) {
        StringGrid1->Rows[i]->Delimiter = '\t';
        L->Add(StringGrid1->Rows[i]->DelimitedText);
    }
    L->SaveToFile
    (SaveDialog1->FileName);
}

P.s. и да, L - это StringList.

@D1973 · 16.02.2017, 09:33

Это надо?

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> L(new TStringList);
  for(int i = SG->FixedRows; i < SG->RowCount; i++)
   {
     L->Add(String().sprintf(L"%s\t1\t64\t%s", SG->Cells[0][i], SG->Cells[1][i]));
     L->Add(String().sprintf(L"%s\t2\t64\t%s", SG->Cells[0][i], SG->Cells[3][i]));
     L->Add(String().sprintf(L"%s\t3\t5\t%s", SG->Cells[0][i], SG->Cells[2][i]));
   }
  L->SaveToFile("c:\\tmp\\12345.txt");
}

p.s. SG - это StringGrid
p.p.s. Если у тебя BCB6 - в строках ...sptintf(L"... убери букву L

@Nekrom · 16.02.2017, 14:10 **[ТС]**

Спасибо огромное! Все работает!

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Nekrom 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 14
	16.02.2017, 14:10 [ТС]
	Спасибо огромное! Все работает! 0