, систему допомоги, меню з спливаючими підказками, "зробити цукерочку ". Можливості Delphi 1.0 for Windows 3.1 дуже великі, при використанні 32-bit-ного коду вони майже не обмежені. Існує безліч бібліотек і модулів, при підключенні яких можна зробити справжнього монстра, який буде робити все, що хочеш і буде простий у зверненні.
Програма була написана під Windows 3.1, але може працювати і під іншими оболонками, емулює роботу Windows 3.1-OS/2; MAC, що підтримують 16-bit-ний код і кодування Windows3.1-Windows NT, Windows 95. br/>
Тексти програм (у додатку).
Головний запускає файл програми.
Pr1.dpr
program Pr1;
uses
Forms,
Start in 'START.PAS' {Form1},
unit1 in 'UNIT1.PAS',
unit2 in 'UNIT2.PAS',
unit3 in 'UNIT3.PAS',
unit4 in 'UNIT4.PAS';
{$ R *. RES}
begin
Application.CreateForm (TForm1, Form1);
Application.Run;
end.
Файл визначальний введення додаткової інформації через інтерфейс програми.
Start.pas
unit Start;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Unit1, Unit2, Unit3, Unit4;
type
TForm1 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Button1: TButton;
procedure Button1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{Private declarations } p> public
{Public declarations}
end;
var
Form1: TForm1;
implementation
{$ R *. DFM}
procedure TForm1.Button1Click (Sender: TObject);
begin
str (n_mes, mw);
system.assign (f, 'vhod base.dat');
rewrite (f);
z: = Edit3.Text;
writeln (f, z); {val (z, fzp, conv);} {ФЗП}
z: = Edit2.Text;
writeln (f, z); {val (z, kol_d, conv);} {Кількість днів}
z: = Edit5.Text;
writeln (f, z); {val (z, tar_rab, conv);} {Тариф робочого 5-го розряду}
z: = Edit4.Text;
writeln (f, z); {val (z, oc_m, conv);} {Оклад майстра}
z: = Edit1.Text;
writeln (f, z); {val (z, n_mes, conv);}
system.close (f);
Unit2.vvod;
Unit3.prog;
Unit4.vivod;
end;
procedure TForm1.FormCreate (Sender: TObject);
begin
Edit1.Text: = '0 &...
