Качественные и дешевые стальные двери эконом Руза с быстрой транспортировкой в пределах Москвы
Объявление переменных и модулей
Автор: 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}

  1. Вторая реализация метода Зейделя
  2. РГР 2
  3. РГР 3

  Нужна- Печать плакатов -для диплома.
Маленькие полезные программы, Powered by Joomla!; Joomla templates by SG