Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

Main in 'Main.pas' {MainForm},

Bases in 'Bases.pas',

UkrRecog in 'UkrRecog.pas';

{$R *.res}

begin

Application.Initialize;

Application.Title := 'Довідник : одиниці вимірювання, с-ма числення, час у різних країнах.';

Application.CreateForm(TMainForm, MainForm);

Application.Run;

end.

Програма складається з 3-х модулів :

Main – Знаходиться опис головної форми і її методів включаючи основні алгоритми.

Bases – в цьому модулі описана процедура переводу систем числення.

UkrRecog – тут запрограмована функція переводу цілих чисел в словесний вигляд.

1) unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, Registry, Menus, UkrRecog, Bases,

Spin, IniFiles, Buttons ;

type

TMainForm = class(TForm)

PageControl: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

ComboGMT: TComboBox;

Label1: TLabel;

CurTime: TLabel;

TimeTimer: TTimer;