Delphi dasturlash tili haqida

аков «Delphi 4 разработка баз данных», «Питер» Москва 1996г.
8. Пачеко, Тейксера «Delphi 5 пособие программиста», «Питер» Москва 1999 г.
9. Фаронов «Delphi 4 учебное пособие», «Питер» Москва 1995 г.
Иловалар
Биринчи форма учун
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;
type
TForm1 class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Label4: TLabel;
ComboBox2: TComboBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Image1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;
var
Form1: TForm1;
implementation
uses Unit1;
$R . dfm
procedure TForm1. Button1Click(Sender: TObject);
begin
form2. show;
end;
procedure TForm1. FormCreate(Sender: TObject);
begin
ComboBox1. Items. Add(2D guruh);
ComboBox1. Items. Add(3E guruh);
ComboBox1. Items. Add(4E guruh);
ComboBox1. Items. Add(5B guruh);
ComboBox1. Items. Add(6B guruh);
end;
procedure TForm1. Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1. Edit1Change(Sender: TObject);
begin
if edit1. Text then Button1. Enabled: false;
end;
procedure TForm1. Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ed