Реферат Розробка системи збору та передачі інформації

-i); StringGrid2-> Cells [i] [1] = IntToStr (Pol [ i]);} -> Text = StrToInt (My-> getSt ()); StringGrid2-> Visible = true; Label2-> Visible = true;> setPol (Pol); fclose (P);} }

// запис інформації у файл

{SaveDialog1-> InitialDir = GetCurrentDir (); SaveDialog1-> DefaultExt = "inf"; -> FilterIndex = 2; (SaveDialog1-> Execute ())

{FILE * P = fopen (SaveDialog1-> FileName.c_str (), "w +"); fseek (P, 0l, 0); (My-> getInf () ! = 0)

{char A = 0; int B = 128; (i = 0; i <32; i + +)

{A = 0; B = 0x80; (j = 0; j <8; j + +)

{A = A | ((My-> getInf () [i * 8 + j]) * B); B = B/2;} (A, P);} } (P);} }

// збереження значень регістрів кодера

{SaveDialog1-> DefaultExt = "cod"; SaveDialog1-> FilterIndex = 2; (SaveDialog1-> Execute ())

{FILE * P = fopen (SaveDialog1-> FileName.c_str (), "w +"); fseek (P, 0l, 0); (My-> getReg () ! = 0)

{char A = 0; int B = 128; (i = 0; i <= (My-> getSt ())/8; i + +)

{A = 0; B = 0x80; (j = 0; j <8; j + +)

{if (8 * i + j getSt ()) A = A | ((My-> getReg () [i * 8 + j]) * B); = B/2;} (A, P);} (P);} } }

// збереження значень регістрів декодера

{SaveDialog1-> DefaultExt = "dec"; SaveDialog1-> FilterIndex = 2; (SaveDialog1-> Execute ())

{FILE * P = fopen (SaveDialog1-> FileName.c_str (), "w +"); fseek (P, 0l, 0); (My-> getDec () ! = 0)

{char A = 0; int B = 128; (i = 0; i <= (My-> getSt ())/8; i + +)

{A = 0; B = 0x80; (j = 0; j <8; j + +)

{if (8 * i + j getSt ()) A = A | ((My-> getDec () [i * 8 + j]) * B); B = B/2;} (A, P);} (P);} } }

// Збереження вектора помилок

{SaveDialog1-> DefaultExt = "err"; SaveDialog1-> FilterIndex = 2; (SaveDialog1-> Execute ())

{FILE * P = fopen (SaveDialog1-> FileName.c_str (), "w +"); fseek (P, 0l, 0); (My-> getErr () ! = 0)

{char A = 0; int B = 128; (i = 0; i <32; i + +)

{A = 0; B = 0x80; (j = 0; j <8; j + +)

{A = A | ((My-> getErr () [i * 8 + j]) * B); B = B/2;} (A, P);} } (P);} }

// ----...