Сохранение StringGrid

Ddv122 · Регистрация: 23.12.2010

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

Вот сделал сохранение - всё работает хорошо
Но, стоит ли создавать 2 TStringList или можно как то обойтись одним?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#define SS List->Strings
    TStringList *List = new TStringList;
    TStringList *List2 = new TStringList;
    List->Clear();
    List2->Clear();
    List->Delimiter = ':';
    for(int i=1; i<StringGrid1->RowCount; i++)
    {
        StringGrid1->Rows[i]->Delimiter=':';
        List->DelimitedText = StringGrid1->Rows[i]->DelimitedText;
        List2->Add("1:" +SS[1]+ "::"+ SS[2] + " ; "+ SS[3] + " " + SS[4] );
    }
    List2->SaveToFile("new.txt");
    delete List2;
    delete List;
    #undef SS

AntonChik · 25.11.2013, 09:01

в целом можно обойтись и одним List2, добавив цикл пробежки по столбцам ряда.
тем паче перечисление ручками (SS[1]...SS[4]) как у вас это некрасиво

@nick42 · 25.11.2013, 12:36

А через "формат" не проще?

C++
1
2
3
4
5
    TStringGrid *sg = StringGrid1;   int rw=0;
    TStringList *sL = new TStringList;
    while (++rw<sg->RowCount) sL->Add(String().sprintf("1:%s::%s ; %s %s",
      sg->Cells[1][rw],sg->Cells[2][rw],sg->Cells[3][rw],sg->Cells[4][rw]));
    sL->SaveToFile(".\\123.txt");  delete sL;

@BRcr · 27.11.2013, 17:31

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

C++
1
("1:" +SS[1]+ "::"+ SS[2] + " ; "+ SS[3] + " " + SS[4] )

В этом формате есть какой-то смысл или это так просто?

Ddv122 · 28.11.2013, 14:04 **[ТС]**

BRcr,
на выходе должны быть строки вида ("0000:" +SS[1]+ "::"+ SS[2] + " ; "+ SS[3] + " " + SS[4] )
а во вторых проверки этих строк и если что быстрой автоматической правки....

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
void __fastcall TForm1::Button6Click(TObject *Sender)
{
#define SS List->Strings
    TStringList *List = new TStringList;
    TStringList *List2 = new TStringList;
    List->Clear();
    List2->Clear();
    List->Delimiter = ':';
    for(int i=1; i<StringGrid1->RowCount; i++)
    {
        StringGrid1->Rows[i]->Delimiter=':';
        List->DelimitedText = StringGrid1->Rows[i]->DelimitedText;
        if (!SS[2].IsEmpty())
        {
            if (SS[2].Trim().Length()==16  || SS[2].Trim().IsEmpty()==17)       //чистый ключ
            {
                SS[2]=SS[2].Trim() + SS[2];
                for (int i = 3; i<= SS[2].Length(); i+=3)
                {
                    SS[2]=SS[2].Insert(" ",i);
                }
            }
//...и так далее)))
        if (!SS[2].IsEmpty())
        {
            List2->Add("0000:0000:" +SS[1]+ "::"+ SS[2].Trim() + " ; "+ SS[3] + " " + SS[4] );
        }
    }
    if (SaveDialog1->Execute())
    {
        List2->SaveToFile(SaveDialog1->FileName);
    }
    delete List2;
    delete List;
#undef SS
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	25.11.2013, 09:01
	в целом можно обойтись и одним List2, добавив цикл пробежки по столбцам ряда. тем паче перечисление ручками (SS[1]...SS[4]) как у вас это некрасиво 1