Реферат Огляд компонентів Delphi, які використовуються при розробці інтерфейсу в стилі MS WORD

ерегляду вмісту файлу

Дані з файлу виводяться в текстовий редактор

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);

{процедура додаванн...