Application->Initialize

{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
Bul fayldaǵı qatarlardıń kópshiligi aldınǵı xarakteristikadan hám programmanıń mısalından qashannan berli málim. Keliń, tek belgisiz sızıqlardı kórip shıǵayıq. #pragma paketi (smart_init) qatarı programma komponentlerin jumısqa túsiriw izbe-izligin belgileydi. #pragma resursı " *. dfm" qatarı preprotsessorga forma ushın bul fayl atı menen *. dfrn faylınan paydalanıwdı aytadı. TForml * Forml qatarında ; TForml klası Forml ushın daǵaza etilgen. Sonnan keyin joqarıda talqılaw etilgen arza formasın jaratıw tártipleri hám hádiyselerdi islew beretuǵınlar keledi. #include " Ubutct. h" qatarına itibar beriń, ol modulǵa tómende jaylasqan Ubutct. h bas bet faylın óz ishine aladı.
//---------------------------------------------------------------------------

#ifndef UbutctH
#define UbutctH
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------


#include
#include
#include
#include
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TLabel *Label1;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
private:  // User declarations
public: // User declarations
int i; // Переменная - счетчик
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Ilgeri, biz i ózgeriwshisi ushın jumısqa túsiriw qatarın kirgiziw arqalı onı mısalda tahrir etken edik. Keling, bul fayldı tolıq kórip shıǵayıq. #ifiidef UbutctH qatarı shártli kompilyatsiya direktivasi bolıp tabıladı. Bul direktiv UbutctH identifikatori aldın #define direktivasi menen anıqlanǵanlıǵın tekseredi. Eger joq bolsa, direktivdan aldınǵı kod bólegi kompilyatsiya etiledi. Keri jaǵdayda, fragment kompilyatsiya etińmeydi. # de-fine UbutctH liniyasi keyin UbutctH identifikatorini belgileydi. Sonnan keyin bul modulda isletiletuǵın komponentler, ózgeriwshiler, konstantalar hám funktsiyalardı xarakteristikalaytuǵın tórtew #include fayldı qosıw qatarları keledi. Bul jerde siz islep shıǵıw ortalıǵı tárepinen avtomatikalıq túrde jaratılmaytuǵın qosımsha direktivalarni qosıwıńız múmkin. Bul qatarlardan keyin ush bólimli sırtqı kórinisler klasınıń xarakteristikası beriledi. __published bólimi: formanı proektlestiriw processinde islep shıǵıw ortalıǵı avtomatikalıq túrde faylǵa jazatuǵın formaǵa jaylastırılǵan komponentler hám hádiyselerdi isleytuǵınlar ushın deklaratsiyalardı óz ishine aladı. Jeke bólim: jeke ózgeriwshilerdi járiyalaw ushın mólsherlengen, yaǵnıy olar tek bul modul ushın bar. Ulıwma bólim: ulıwma ózgeriwshilerdi járiyalaw ushın mólsherlengen, yaǵnıy olar tekǵana bul modul ushın, bálki basqa klasslar hám modullar. Naǵız ózi bólimge biz ózgeriwshin kirgizdik (qaydga aldıq ) - counter L String extern PACKAGE TForml * Forml; TForml klasın basqa modullardan paydalanıw múmkin dep daǵaza etedi. Fayl shártli tifndef direktivasi menen tawsılatuǵın #endif qatarı menen tawsıladı.

Keyingi eki fayl, butct. bpr hám Ubutct. dfm, uyqas penentúrde joybar sazlamalari hám joybar forması ushın tekstli fayllar bolıp tabıladı. Olar islep shıǵıw ortalıǵında islep shıǵıw hám joybar ózgerisleri waqtında avtomatikalıq túrde jaratıladı hám redaktorlanadı. Butct. bpr faylı islep shıǵıw ortalıǵın ornatıw ushın direktivalar hám makroslardı óz ishine aladı hám qátelerge jol qoymaw ushın qolda tahrir etińmasligi kerek, eger quramdı qálegen tekst redaktorı járdeminde kóriwińiz múmkin. Ubutct. dfrn - bul formanıń mazmunı hám qásiyetleriniń tekstli jazıwı. Onı islep shıǵıw ortalıǵınıń ózinde kóriw hám hátte redaktorlaw múmkin. Onıń ushın formanı tańlaw ushın tıshqanchaning shep tuymesi menen basıń, keyin tıshqanchaning oń tuymesi menen kontekst menyusın oching (5-súwret) hám odaǵı “Tekst retinde kóriw” buyrıǵın saylań.

5-súwret
Sizdiń aldıńizde forma áynegi ashılıwı kerek (6 -súwret), ol jaǵdayda forma faylınıń mazmunı tekst formasında usınıs etiledi.

6-súwret
Bul jerde hár qanday jazıwdı kóriw hám redaktorlaw múmkin. Tuwrısıda, jańa qátelerge jol qoymaw ushın ne etip atırǵanıńızdı bilip, bunı qılıw kerek. Mısal ushın, Left = 192, Tap = 107, Width = 220 hám Height = 140 qatarlarında siz uyqas penentúrde shep hám joqarı toltırıwdı, sonıń menen birge, formanıń keńligi hám bálentligin ózgertiwińiz múmkin. Caption - 'Programma 2' hám Reń = clBtnFace qatarlarında uyqas penentúrde forma atınıń jáne onıń fon reńin hám taǵı basqalardı ózgertiwińiz múmkin. Alt + F12 operativ tuymesi járdeminde formanıń túp kórinisine qaytıwıńız múmkin. kombinatsiyası yamasa kontekst menyusı arqalı Forma retinde kóriw buyrıǵı járdeminde.
Butct. res penenhám Ubutct. ddp faylları uyqas penentúrde joybar resursları hám diagrammaların saqlaytuǵın ekilik fayllar bolıp, olardı qolda tahrir etip bolmaydı. Joybar ushın atqarılatuǵın fayl butct. exe dep ataladı. Aqır-aqıbetde, tds penenfaylı disk raskadrovka joybarı faylı bolıp tabıladı, onı mudamı islep shıǵıw ortalıǵında túp joybar faylları menen qayta jaratılıwmasıńız múmkin. Joqarıda xarakteristikalanǵan fayllarǵa qosımsha túrde, islep shıǵıw ortalıǵı qolda sazlanıwı múmkin bolmaǵan járdemshi hám qosımsha fayllardı jaratılıwma múmkinshilik beredi. Bul material birinshi qarawda júdá qıyın kórinisi múmkin. Biraq waqıt ótiwi menen suwretlengen.