ерегляду вмісту файлу
Дані з файлу виводяться в текстовий редактор
procedure Action7Execute (Sender: TObject);
Процедура очищення текстового редактораAction8Execute (Sender: TObject);: string;: boolean;, k: integer;: file of tzarplata;: tzarplata;: array of tzarplata;
Процедура пошуку записів. Передбачена можливість пошуку записів по табельної номером, по підрозділу або за посадою залежно від встановленого перемикача. Знайдені записи відображаються в редакторі. br/>
procedure Action9Execute (Sender: TObject);
Виклик справкіAction10Execute (Sender: TObject);
Виклик форми "Про програму"
Програмні коди модулів
unit Unit1;
interface, ShellAPI, ...; = record: word;: word;: string [80];: string [25];: string [25];: real;: word;: Real;: Real;: Real;; = class (TForm) FormCreate (Sender: TObject); Action1Execute (Sender: TObject); Action5Execute (Sender: TObject); Action6Execute (Sender: TObject); Action7Execute (Sender: TObject); Action4Execute (Sender: TObject); Action3Execute (Sender: TObject); Action8Execute (Sender: TObject); Action2Execute (Sender: TObject); Action10Execute (Sender: TObject); Action9Execute (Sender: TObject);
{Private declarations}
{Public declarations};: file of tzarplata;: tzarplata;: array of tzarplata;: integer;: TForm1; Unit2;
{$ R *. dfm} TForm1.FormCreate (Sender: TObject);
RichEdit1.Clear ;//очищення текстового редактора
end; TForm1.Action1Execute (Sender: TObject);
{процедура відкриття файлу}. Clear;
assignfile (f, 'C: Zarplata.dat');// пов'язуємо файлову змінну з ім'ям файлаFileExists ('C: Zarplata.dat')// захищений блок для відкриття файлу
then reset (f) rewrite (f); (f, 0); not eof (f) do// цикл поки не кінець файлу
read (f, w); {читаємо дані з файлу в змінну w}
// виводимо вміст змінної в текстовий редактор
RichEdit1.Lines.Add ('_____________________________________');. Lines.Add ('Номер місяця ...........' + inttostr (w.nommes));. Lines . Add ('Табельний номер ........' + inttostr (w.tabnom));. Lines.Add ('Прізвище Ім'я ......... '+ Floattostr (w.oklad));. Lines.Add (' Премія (у% до 100) .... '+ inttostr (w.premij));. Lines.Add ('Утримано із зарплати ...' + floattostr (w.udergano));. Lines.Add ('Сума премії ...........' + floattostr (w.sumprem));. Lines. Add ('Сума до фокус введення в кінець файлу}; TForm1.Action5Execute (Sender: TObject);
{процедура додаванн...
