Реферат Виявлення одиночних помилок в коді Хеммінга

Тема: Курсовые обзорные

я запису}, tn1, i: integer;

fl: boolean; (f, 'C: Zarplata.dat'); (f);: = strtoint (edit2.Text);: = false; i: = 0 to combobox3.items . count-1 do: = strtoint (combobox3.Items [i]); tn = tn1 then fl: = true;; fl then ('Такий номер є');. SetFocus;; (f, filesize (f)); {встановлюємо фокус введення в кінець файлу}

// в змінну w записуємо дані з полів редагування

// обображаем записи в текстовому редакторі

RichEdit1.Lines.Add ('_____________________________________');. Lines.Add ('Номер місяця ...........' + inttostr (w.nommes));. Lines . Add ('Табельний номер ........' + inttostr (w.tabnom));. Lines.Add ('Прізвище Ім'я (У% до 100) .... '+ inttostr (w.premij));. Lines.Add (' Утримано із зарплати ... '+ floattostr (w.udergano));. Lines.Add (' Сума премії ........... '+ floattostr (w.sumprem));. Lines.Add (' Сума до видачі ......... '+ floattostr (w.sumkv));

write (f, w); {записуємо дані із змінної w у файл}

// очищаємо однорядкові поля редагування

edit1.Text: ='';

{процедура перегляду вмісту файлу}. Clear;

assignfile (f, 'C: Zarplata.dat'); (f); (f, 0); not eof (f) do

begin (f, w); {читаємо дані з файлу в змінну w і відображаємо їх в редакторі}

{процедура очищення RichEdit1}. Clear;; TForm1.Action4Execute (Sender: TObject);

// вихід з програми (f);

close;; TForm1.Action3Execute (Sender: TObject);

{процедура друку}. Print (Text);; TForm1.Action8Execute (Sender: TObject);

{процедура пошуку записів}: string;

begin (f, w); {читаємо з файлу в файлову змінну}