Реферат Програмний продукт, який здійснює вирішення завдань з дисципліни "Чисельні методи"

mtInformation, [mbok], 0);

end ('Реєстраційний номер невірний!', mtWarning, [mbok], 0);;;; TForm1.FormActivate (Sender: TObject);: TRegistry;: = TRegistry.Create;. OpenKey ('software', true);. OpenKey ('stalk', true); Registry.ValueExists ('polic') then// програма зарегістрірована.Enabled: = false;;; TForm1.WMGetSysCommand (var Message: TMessage); (Message.wParam = SC_Close) then.Close;. Close;

Inherited;;; TForm1.Timer2Timer (Sender: TObject);. Caption: = Datetostr (now) + 'г';. Caption: = Timetostr (now);; TForm1.N30Click (Sender: TObject); (Form1.Handle, 'HELP.hlp', HELP_CONTEXT, 1);;.

Unit1_1;// Метод Гауса (модуль 1)

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

Dialogs, Menus, StdCtrls;

TForm2 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);: = TRegistry.Create;. OpenKey ('software', true);. OpenKey ('stalk', true); Registry.ValueExists ('polic') then// програма зарегістрірована.Enabled: = false;;; TForm1.WMGetSysCommand (var Message: TMessage); (Message.wParam = SC_Close) then.Close;. Close;

Inherited;;; TForm1.Timer2Timer (Sender: TObject);. Caption: = Datetostr (now) + 'г';. Caption: = Timetostr (now);; TForm1.N30Click (Sender: TObject); (Form1.Handle, 'HELP.hlp', HELP_CONTEXT, 1);;.

Unit1_1;// Метод Гауса (модуль 1)

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

Dialogs, Menus, StdCtrls;

TForm2 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Edit1KeyPress (Sender: TObject; var Key: Char);

procedure Edit2KeyPress (Sender: TObject; var Key: Char);

private

{Private declarations}

public

{Public declarations}

end;

Form2: TForm2;

Назад | сторінка 15 з 20 | Наступна сторінка