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.
144.
145.
146.
struct R
{
int Number;
AnsiString Name;
AnsiString MecTo;
AnsiString KJIuKyxa;
AnsiString nac;
AnsiString gon_nac;
AnsiString MbIJIo;
AnsiString uHfa;
bool exist;
int kol;
};
//--------------Массив типа R------------
R b[5000];
//--------------Запись массива в файл-----------
void TFormMain::RtoFile(String name, R *Rec)
{
FILE * pFile;
AnsiString bufname = name + ".psw";
pFile = fopen(bufname.c_str(), "wb");
for(int i = 0 ; i < 5000 ; i++)
{
if(Rec[i].exist)
{
int
sizeNumber = sizeof(Rec[i].Number),
sizeName = Rec[i].Name.Length(),
sizeMecTo = Rec[i].MecTo.Length(),
sizeKJIuKyxa = Rec[i].KJIuKyxa.Length(),
sizenac = Rec[i].nac.Length(),
sizegon_nac = Rec[i].gon_nac.Length(),
sizeMbIJIo = Rec[i].MbIJIo.Length(),
sizeuHfa = Rec[i].uHfa.Length(),
sizeexist = sizeof(Rec[i].exist),
sizekol = sizeof(Rec[i].kol);
fwrite(&sizeNumber, sizeof(int), 1, pFile);
fwrite(&sizeName, sizeof(int), 1, pFile);
fwrite(&sizeMecTo, sizeof(int), 1, pFile);
fwrite(&sizeKJIuKyxa, sizeof(int), 1, pFile);
fwrite(&sizenac, sizeof(int), 1, pFile);
fwrite(&sizegon_nac, sizeof(int), 1, pFile);
fwrite(&sizeMbIJIo, sizeof(int), 1, pFile);
fwrite(&sizeuHfa, sizeof(int), 1, pFile);
fwrite(&sizeexist, sizeof(int), 1, pFile);
fwrite(&sizekol, sizeof(int), 1, pFile);
fwrite(&Rec[i].Number, sizeNumber, 1, pFile);
fwrite(&Rec[i].kol, sizekol, 1, pFile);
fwrite(&Rec[i].exist, sizeexist, 1, pFile);
char buf [1];
strcpy(buf, Rec[i].Name.c_str());
fwrite(&buf, sizeName, 1, pFile);
strcpy(buf, Rec[i].MecTo.c_str());
fwrite(&buf, sizeMecTo, 1, pFile);
strcpy(buf, Rec[i].KJIuKyxa.c_str());
fwrite(&buf, sizeKJIuKyxa, 1, pFile);
strcpy(buf, Rec[i].nac.c_str());
fwrite(&buf, sizenac, 1, pFile);
strcpy(buf, Rec[i].gon_nac.c_str());
fwrite(&buf, sizegon_nac, 1, pFile);
strcpy(buf, Rec[i].MbIJIo.c_str());
fwrite(&buf, sizeMbIJIo, 1, pFile);
strcpy(buf, Rec[i].uHfa.c_str());
fwrite(&buf, sizeuHfa, 1, pFile);
}
}
fclose (pFile);
}
//----------Считывание из файла------------
void TFormMain::RfromFile(String name, R Rec[])
{
int counter = 0;
FILE *pFile = NULL;
AnsiString bufname = name + ".psw";
pFile = fopen(bufname.c_str() , "rb");
if(pFile == NULL)
return;
for(int i = 0; i < 5000; i++)
{
int
sizeNumber = 0,
sizeName = 0,
sizeMecTo = 0,
sizeKJIuKyxa = 0,
sizenac = 0,
sizegon_nac = 0,
sizeMbIJIo = 0,
sizeuHfa = 0,
sizeexist = 0,
sizekol = 0;
fread(&sizeNumber, sizeof(int), 1, pFile);
fread(&sizeName, sizeof(int), 1, pFile);
fread(&sizeMecTo, sizeof(int), 1, pFile);
fread(&sizeKJIuKyxa, sizeof(int), 1, pFile);
fread(&sizenac, sizeof(int), 1, pFile);
fread(&sizegon_nac, sizeof(int), 1, pFile);
fread(&sizeMbIJIo, sizeof(int), 1, pFile);
fread(&sizeuHfa, sizeof(int), 1, pFile);
fread(&sizeexist, sizeof(int), 1, pFile);
fread(&sizekol, sizeof(int), 1, pFile);
fread(&Rec[i].Number, sizeNumber, 1, pFile);
fread(&Rec[i].kol, sizekol, 1, pFile);
fread(&Rec[i].exist, sizeexist, 1, pFile);
char buf[1];
fread(&buf, sizeName, 1, pFile);
Rec[i].Name = buf;
fread(&buf, sizeMecTo, 1, pFile);
Rec[i].MecTo = buf;
fread(&buf, sizeKJIuKyxa, 1, pFile);
Rec[i].KJIuKyxa = buf;
fread(&buf, sizenac, 1, pFile);
Rec[i].nac = buf;
fread(&buf, sizegon_nac, 1, pFile);
Rec[i].gon_nac = buf;
fread(&buf, sizeMbIJIo, 1, pFile);
Rec[i].MbIJIo = buf;
fread(&buf, sizeuHfa, 1, pFile);
Rec[i].uHfa = buf;
}
fclose(pFile);
}
