Mavzu: Delphi dasturlash tilida sikllar

7. Listing dasturlari

EconomInfo birligi;

interfeys

foydalanadi

Windows, Xabarlar, SysUtils, Variantlar, Sinflar, Grafika, Boshqaruv elementlari, Shakllar,
Dialoglar, Gridlar, Menyular, StdCtrls, shellapi;

turi
TForm1 = sinf (TForm)

sg1: TStringGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Eslatma1: Tmemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Tahrirlash5: TEdit;
1-tugma: TB tugmasi;
3-tugma: TB tugmasi;
4-tugma: TB tugmasi;
5-tugma: TB tugmasi;
6-tugma: TB tugmasi;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N8: TMenuItem;
Protsedura FormShow(Sender: TObject);
cleansg protsedurasi (Yuborish: TObject);
procedurecleanit(Sender:TObject);
protsedura Button4Click(Sender: TObject);
protsedura Button1Click(Sender: TObject);
protsedura autorachet(Yuborish: TObject);
protsedura Button6Click(Sender: TObject);
protsedura Button5Click(Sender: TObject);
protsedura Button3Click(Sender: TObject);
protsedura sg1Click(Sender: TObject);
protsedurasi N8Click(Sender: TObject);
protsedurasi N5Click(Sender: TObject);

xususiy
{ Shaxsiy deklaratsiyalar }

ommaviy
{ Ommaviy deklaratsiyalar }
oxiri;

var
Shakl 1: TForm1;

amalga oshirish

{$R *.dfm}

turi zap=record // yozuv turi deklaratsiyasi
mahsulot:string[80];
onng:longint;
reja:longint;
onkg:longint;
swocep:kengaytirilgan;
oxiri;
var
Mzap : massiv [1..200 ] zap ; //yozuv massivi turini e'lon qilish
filezap: zap fayli;
filenamezap:string;

// formani yuklashda amallarni bajarish tartibi