Вывод структур в StringGrid1 в виде таблицы

@bobkah1 · Регистрация: 02.05.2012

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

Всем доброго времени суток.
Нужна помощь вот в таком вопросе:
Есть какое-то количество структур в файле (data.txt лежит в папке с проектом), структуры задавались с клавиатуры. Нужно сделать так чтобы при нажатии кнопки был переход в другую форму и там в StringGrid1 выводились все эти структуры в качестве таблицы. Если чем-то поможет, то вот код кнопки

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm4), &Form4);
    Form4->StringGrid1->RowCount=1;
    Form4->Show();
    Form4->StringGrid1->Cells[0][0]="Имя";
    Form4->StringGrid1->Cells[1][0]="Фамилия";
    Form4->StringGrid1->Cells[2][0]="Домашний телефон";
    Form4->StringGrid1->Cells[3][0]="Сотовый телефон";
    Form4->StringGrid1->Cells[4][0]="Skype";
}

Заранее благодарю

ps Я совсем начинающий, можно сказать моя первая программа, так что не серчайте на меня за глупость.

@bobkah1 · 22.05.2012, 22:09 **[ТС]**

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

bobkah1,И все же
Подозреваю что надо сделать сначала File->Use Unit-> Unit4
Делали?

попробовал - не получилось, если честно не стал ковыряться в ошибках, тк работает всё на честном слове, боюсь испортить)
я тут благодаря вашему примеру значительно продвинулся в работе и осталась последняя часть курсовой, не считая описания. это настроить поиск. погуглил, выдало как всегда ересь... сижу теперь, не знаю что делать. мне нужно хотя бы простенький - ввожу в панельку слово или часть слова и он выводит все строки с этим словом/частью в стрингрид новый. и ещё нужно чтобы не учитывал строчная или заглавная буквы.

@Avazart · 22.05.2012, 22:28

Можно использовать регулярки boost/regex или TRegExpr
Но легче использовать метод Pos() класса String если выпендреж не нужен...

@bobkah1 · 23.05.2012, 10:55 **[ТС]**

А можно подробнее?

@Avazart · 23.05.2012, 16:35

Проверять каждую строку на содержание подстроки

C++
1
2
3
4
5
String Text="Text";
String S="Te";
 
if(Text.Pos(S)>0) ShowMessage("Найдено");
else       ShowMessage("Не найдено");

@bobkah1 · 26.05.2012, 21:04 **[ТС]**

После долгого мучения я таки создал функцию поиска, правда она вообще не оптимизированная, но зато работает, если интересно, то вот она:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
void __fastcall TForm4::Button3Click(TObject *Sender)
{
char u [30];
strcpy(u,Edit1->Text.c_str());
 
Application->CreateForm(__classid(TForm6), &Form6);
    Form6->StringGrid2->RowCount=1;
    Form6->StringGrid2->ScrollBars=ssVertical;
    Form6->Show();
    Form6->StringGrid2->Cells[0][0]="Номер";
    Form6->StringGrid2->Cells[1][0]="Имя";
    Form6->StringGrid2->Cells[2][0]="Фамилия";
    Form6->StringGrid2->Cells[3][0]="Домашний телефон";
    Form6->StringGrid2->Cells[4][0]="Сотовый телефон";
    Form6->StringGrid2->Cells[5][0]="Skype";
 
    FILE *f;
    char s[]="data.dat";
    if ( (f=fopen(s,"rb"))==NULL )  { ShowMessage("Файла нет!");return;}
      //-----------------------------
    int i=2;
while(fread(&b,sizeof(part),1,f))
  {
             String ab=u;
             String bc1=AnsiString(b.name);
        if (bc1.Pos(ab)>0) {
        Form6->StringGrid2->RowCount=i;
      Form6->StringGrid2->Cells[0][i-1]= IntToStr(i-1);
      Form6->StringGrid2->Cells[1][i-1]= AnsiString(b.name);
      Form6->StringGrid2->Cells[2][i-1]= AnsiString(b.surname);
      Form6->StringGrid2->Cells[3][i-1]= AnsiString(b.tel);
      Form6->StringGrid2->Cells[4][i-1]= AnsiString(b.mob);
      Form6->StringGrid2->Cells[5][i-1]= AnsiString(b.skype);
       i++;
       continue;
        }
 
             String bc2=AnsiString(b.surname);
      if (bc2.Pos(ab)>0) {
        Form6->StringGrid2->RowCount=i;
      Form6->StringGrid2->Cells[0][i-1]= IntToStr(i-1);
      Form6->StringGrid2->Cells[1][i-1]= AnsiString(b.name);
      Form6->StringGrid2->Cells[2][i-1]= AnsiString(b.surname);
      Form6->StringGrid2->Cells[3][i-1]= AnsiString(b.tel);
      Form6->StringGrid2->Cells[4][i-1]= AnsiString(b.mob);
      Form6->StringGrid2->Cells[5][i-1]= AnsiString(b.skype);
       i++;
       continue;
        }
 
             String bc3=AnsiString(b.tel);
      if (bc3.Pos(ab)>0) {
        Form6->StringGrid2->RowCount=i;
      Form6->StringGrid2->Cells[0][i-1]= IntToStr(i-1);
      Form6->StringGrid2->Cells[1][i-1]= AnsiString(b.name);
      Form6->StringGrid2->Cells[2][i-1]= AnsiString(b.surname);
      Form6->StringGrid2->Cells[3][i-1]= AnsiString(b.tel);
      Form6->StringGrid2->Cells[4][i-1]= AnsiString(b.mob);
      Form6->StringGrid2->Cells[5][i-1]= AnsiString(b.skype);
       i++;
       continue;
        }
 
             String bc4=AnsiString(b.mob);
      if (bc4.Pos(ab)>0) {
        Form6->StringGrid2->RowCount=i;
      Form6->StringGrid2->Cells[0][i-1]= IntToStr(i-1);
      Form6->StringGrid2->Cells[1][i-1]= AnsiString(b.name);
      Form6->StringGrid2->Cells[2][i-1]= AnsiString(b.surname);
      Form6->StringGrid2->Cells[3][i-1]= AnsiString(b.tel);
      Form6->StringGrid2->Cells[4][i-1]= AnsiString(b.mob);
      Form6->StringGrid2->Cells[5][i-1]= AnsiString(b.skype);
       i++;
       continue;
        }
 
             String bc5=AnsiString(b.skype);
        if (bc5.Pos(ab)>0) {
        Form6->StringGrid2->RowCount=i;
      Form6->StringGrid2->Cells[0][i-1]= IntToStr(i-1);
      Form6->StringGrid2->Cells[1][i-1]= AnsiString(b.name);
      Form6->StringGrid2->Cells[2][i-1]= AnsiString(b.surname);
      Form6->StringGrid2->Cells[3][i-1]= AnsiString(b.tel);
      Form6->StringGrid2->Cells[4][i-1]= AnsiString(b.mob);
      Form6->StringGrid2->Cells[5][i-1]= AnsiString(b.skype);
       i++;
       continue;
        }
  }
fclose(f);
}

Теперь возникла новая проблема, он находит, всё нормально, но с учётом регистра, а мне нужно чтобы если я введу "вла", то он мне выдаст строку с именем "Владимир". Уже очень долго ищу способ повысить регистр, так бы я повышал регистры у обоих строк, сравнивал и если всё ок, то выводил в первозданном виде.

@Avazart · 26.05.2012, 21:17

C++
1
2
3
4
5
6
7
8
9
10
String Text="Text";
String S="te";
 
String UpText= Text.UpperCase(); // Все символы к верхниму регистру
String UpS= S.UpperCase();
 
if(UpText.Pos(UpS)>0) ShowMessage("Найдено");
// либо сразу
//if(Text.UpperCase().Pos(S.UpperCase())>0) ShowMessage("Найдено");
else       ShowMessage("Не найдено");

@bobkah1 · 26.05.2012, 21:33 **[ТС]**

Ещё один маленький вопрос - мне нужно помощь создать. Что из списка добавить в форму? я попробовал TMemo, но там текст можно корректировать, это не то, а мне нужно чтото вроде TLabel, только для большого текста.

@Avazart · 26.05.2012, 21:39

Вариант 1

C++
1
Memo1->ReadOnly= true;

Вариант 2

C++
1
Label1->WordWrap= true;

@bobkah1 · 26.05.2012, 21:42 **[ТС]**

Вы мой спаситель, я только что доделал курсач, осталась только рутинная работа в виде описания, боже мой, я счастлив. ОГРОМНОЕ спасибо))

@Avazart · 26.05.2012, 22:13

Если разобраться самому или точнее сказать научиться разобраться самому, то можно было уже давно решать курсачи другим -подрабатывая этим и одновременно углубляя знания

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	22.05.2012, 22:28
	Можно использовать регулярки boost/regex или TRegExpr Но легче использовать метод Pos() класса String если выпендреж не нужен... 0

@bobkah1 2 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 18
	23.05.2012, 10:55 [ТС]
	А можно подробнее? 0

@bobkah1 2 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 18
	26.05.2012, 21:33 [ТС]
	Ещё один маленький вопрос - мне нужно помощь создать. Что из списка добавить в форму? я попробовал TMemo, но там текст можно корректировать, это не то, а мне нужно чтото вроде TLabel, только для большого текста. 0

@bobkah1 2 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 18
	26.05.2012, 21:42 [ТС]
	Вы мой спаситель, я только что доделал курсач, осталась только рутинная работа в виде описания, боже мой, я счастлив. ОГРОМНОЕ спасибо)) 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	26.05.2012, 22:13
	Если разобраться самому или точнее сказать научиться разобраться самому, то можно было уже давно решать курсачи другим -подрабатывая этим и одновременно углубляя знания 0