|
Объявление переменных и модулей |
|
Автор: Administrator
|
|
Ну здесь происходит стандартное для Delphi объявление переменных, модулей и так далее
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Grids, Menus, XPMan;
type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; Label1: TLabel; formula: TEdit; Button1: TButton; StringGrid1: TStringGrid; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Edit1: TEdit; Edit2: TEdit; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit3: TEdit; Button2: TButton; Button3: TButton; Label5: TLabel; Label6: TLabel; Button4: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Memo1: TMemo; Memo2: TMemo; TabSheet4: TTabSheet; Label7: TLabel; Label10: TLabel; Memo3: TMemo; Memo4: TMemo; Label8: TLabel; Memo5: TMemo; Label9: TLabel; Memo6: TMemo; Label11: TLabel; Memo7: TMemo; XPManifest1: TXPManifest; procedure Button1Click(Sender: TObject); procedure TabSheet2Show(Sender: TObject); procedure TabSheet3Show(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); procedure Button4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N1Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
- Вторая реализация метода Зейделя
- РГР 2
- РГР 3
|
-для диплома.