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

------------------------------------ ----------------------------------- _ _fastcall TForm1 :: BitBtn7Click (TObject * Sender) // Зчитування вектора помилок

{bool * Err = My-> getErr (); OpenDialog1-> DefaultExt = "err"; OpenDialog1-> FilterIndex = 2; (OpenDialog1-> Execute ())

{FILE * P = fopen (OpenDialog1-> FileName.c_str (), "r"); fseek (P, 0l, 0); char a [33] = {0}; i = 0; {a [i] = fgetc (P); i + +;} while (feof (P) == 0 && i <33); (Err == 0) Err = new bool [My-> getV ()]; A = 128; (i = 0; i <30; i + +) {A = 128; // вивід на екран (j = 0; j <8; j + +)

{Err [8 * i + j] = ((a [i] & A)>> (7-j)) &0x1; A = A/2;}} -> ColCount = 240; (i = 0; i getV (); i + +)

{StringGrid4-> Cells [i] [1] = IntToStr (Err [i]);} -> Visible = true; My-> setErr (Err); fclose (P) ;} } }