Вывод структур в 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

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

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@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

Опции темы