Программалау технологиясы

Memo1->Lines->Add(grup[n].fam+" "+ 
grup[n].ati+" "+IntToStr(grup[n].tugG)); 
n++; 
Edit1->Clear();Edit2->Clear();Edit3->Clear(); 
Edit1->SetFocus(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit1KeyPress(TObject *Sender,
char
&Key) 
{ 
if
(Key==13) Edit2->SetFocus(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit2KeyPress(TObject *Sender,
char
&Key) 
{ 
if
(Key==13) Edit3->SetFocus(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit3KeyPress(TObject *Sender,
char
&Key) 
{ 
if
(Key==13) Button1->SetFocus(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Button2Click(TObject *Sender)
// 'СУРЫПТАУДЫ ОРЫНДАУ' батырмасының коды 
{ 
if
(RadioGroup1->ItemIndex==0) //fam boinsha syriptay bastaldi 
{ Memo1->Clear(); 

for(

жүктеу/скачать 2,48 Mb.

Достарыңызбен бөлісу: