Какой тип данных можно применить в структуре для поиска данных

@Simulkin Stas · Регистрация: 02.12.2011

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

Доброго времени суток, уважаемые форумчане! Возникла проблемка: на форме (имя - ConDesForm)имеется таблица
(рисунок ниже) в ячейках которой, хранятся такие данные:
Код склада - длинное целое;
Наименование компонента - текстовый;
Производитель - текстовый;
Описание - равновероятно может оказаться или *.PDF или *.DJVU
Модель - равновероятно может оказаться или *.RTF или *.TXT
Внешний вид - графические форматы *.BMP, *.JPG, GIF, *.TIf, *.TIFF, *.PNG
Полный аналог - текстовый (MEMO)
Функциональный аналог - текстовый (MEMO)
После завершения поиска полученные данные отображаются на другой форме (поля, где происходит потеря
информации обведены красным овалом, а зеленым прямоугольником - данные на "материнской" форме).
Теперь вопрос: какие типы данных следует в программе (код ниже, а непонятные места ВЫДЕЛЕНЫ КОММЕНТАРИЯМИ
ЗАГЛАВНЫМИ БУКВАМИ) использовать для:
- форматов *.PDF или *.DJVU
- форматов *.RTF или *.TXT
- графических форматов *.BMP, *.JPG, GIF, *.TIf, *.TIFF, *.PNG

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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// -------------------------------------------------------------
// ----------- Создаем метод поиска данных в таблице -----------
// -------------------------------------------------------------
// --------- Защищаемся от отсутствия критерия поиска ----------
void __fastcall TConDesForm::RBGrpScanCDClick(TObject *Sender)
{
// При выборе критерия поле ввода получает фокус
   EnterScanCD -> SetFocus();
}
// --------------------------------------------------------------------------
// ------------------- Начало метода поиска ------------------
// --------------- Объявляем структуру для поиска---------------
struct
{
 AnsiString RNoW[1000];
 AnsiString Name[1000];
 AnsiString MoEC[1000];
 AnsiString DtSh[1000];        // КАКОЙ ТИП ДАННЫХ ДЛЯ *.PDF ИЛИ *.DJVU
 AnsiString SPICE[1000];       // КАКОЙ ТИП ДАННЫХ ДЛЯ *.RTF ИЛИ *.TXT
 AnsiString Appearance[1000];  // КАКОЙ ТИП ДАННЫХ ДЛЯ ГРАФИЧЕСКИХ ДАННЫХ
 AnsiString FullAnalog[1000];
 AnsiString FunctAnalog[1000];
}
tblConDes;
//-------------------------------------------------------------
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//------------------- Собственно  поиск -----------------------
void __fastcall TConDesForm::StartScanCDClick(TObject *Sender)
{
// Проверяем наличие данных для поиска
 if (EnterScanCD -> Text=="") MessageDlg("Не указаны данные для поиска!!!",mtInformation, TMsgDlgButtons () << mbOK, 0) ;
 if (EnterScanCD -> Text!="")
 {
// Предварительные установки для отбражения данных
   DiscoveryConDes -> StrDscGrdCD -> ColCount=0;
   DiscoveryConDes -> StrDscGrdCD -> RowCount=0;
   DiscoveryConDes -> StrDscGrdCD -> ColCount=8;
// Начальная подготовка полей
   tblConDes.RNoW[0]=0;
   tblConDes.Name[0]=0;
   tblConDes.MoEC[0]=0;
   tblConDes.DtSh[0]=0;
   tblConDes.SPICE[0]=0;
   tblConDes.Appearance[0]=0;
   tblConDes.FullAnalog[0]=0;
   tblConDes.FunctAnalog[0]=0;
// Подключаем источник данных
   ADOTableConDes -> First();
// Задаем начальные условия цикла
 int i=0;
 int j;
 while (!ADOTableConDes -> Eof)
 {
// Читаем все столбцы таблицы-источника
   tblConDes.RNoW[i]=TableCDGrid -> Fields[0]->AsString;
   tblConDes.Name[i]=TableCDGrid -> Fields[1]->AsString;
   tblConDes.MoEC[i]=TableCDGrid -> Fields[2]->AsString;
   tblConDes.DtSh[i]=TableCDGrid -> Fields[3]->AsString;       // ЧЕМ ЗАМЕНИТЬ, ЕСЛИ НУЖНО AsString
   tblConDes.SPICE[i]=TableCDGrid-> Fields[4]->AsString;       // ЧЕМ ЗАМЕНИТЬ, ЕСЛИ НУЖНО AsString
   tblConDes.Appearance[i]=TableCDGrid-> Fields[5]->AsString;  // ЧЕМ ЗАМЕНИТЬ, ЕСЛИ НУЖНО AsString
   tblConDes.FullAnalog[i]=TableCDGrid ->Fields[6]->AsString;
   tblConDes.FunctAnalog[i]=TableCDGrid -> Fields[7]->AsString;
// Переходим на следующую строчку
  i=i+1;
   ADOTableConDes->Next();
 }
// Строчки закончились
  i=0;
// --------- Выбираем критерий поиска ---------
 switch (RBGrpScanCD->ItemIndex)
 {
  case 0:
  {
// --- Задаем поиск по полю "Код склада" ---
// Выполнить цикл при совпадении
  while (tblConDes.RNoW[i]!="")
  {
// Устанавливаем условие сравнения
  if (AnsiPos(EnterScanCD -> Text,tblConDes.RNoW[i])!=0)
   {
// Пишем все столбцы строки, если поиск успешен c
// передачей данных в элемент StringGrid другой формы
    j=0;
    DiscoveryConDes->StrDscGrdCD->Cells[j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.RNoW[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.Name[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.MoEC[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.DtSh[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.SPICE[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.Appearance[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.FullAnalog[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.FunctAnalog[i];
    DiscoveryConDes->StrDscGrdCD->RowCount+=1;
   }
// Переходим на следующую строчку
  i=i+1;
 }
// Уменьшаем количество строк в элементе StringGrid другой формы
  DiscoveryConDes->StrDscGrdCD->RowCount-=1;
// Строки закончились
  i=0;
// Останавливаемся
  break;
 }
// Устанавливаем другой критерий поиска
 case 1:
 {
// --- Задаем критерий поиска по наименованию ---
// Выполнить цикл при совпадении
  while (tblConDes.Name[i]!="")
  {
// Устанавливаем условие сравнения
   if (AnsiPos(EnterScanCD -> Text,tblConDes.Name[i])!=0)
   {
// Пишем все столбцы строки, если поиск успешен c
// передачей данных в элемент StringGrid другой формы
    j=0;
    DiscoveryConDes->StrDscGrdCD->Cells[j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.RNoW[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.Name[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.MoEC[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.DtSh[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.SPICE[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.Appearance[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.FullAnalog[i];
    DiscoveryConDes->StrDscGrdCD->Cells[++j][DiscoveryConDes->StrDscGrdCD->RowCount-1]=tblConDes.FunctAnalog[i];
    DiscoveryConDes->StrDscGrdCD->RowCount+=1;
   }
// Переходим на следующую строчку
  i=i+1;
  }
// Уменьшаем количество строк в элементе StringGrid другой формы
  DiscoveryConDes->StrDscGrdCD ->RowCount-=1;
// Строки закончились
  i=0;
// Остановка
  break;
  }
 }
// Вызываем форму для отображения
 DiscoveryConDes->Show();
 }
}
//---------------------------------------------------------------------------

Заранее благодарен за совет.

Новые блоги и статьи Все статьи Все блоги /
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; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .