Сообщение от Ustoz
(Сообщение 537147)
Ilgari o`zim ozgina bol`sa ham tushunardim, hozir esa yetti yil bo`ldi, faqat matnni o`zgartirib dasturni yangilab o`tiraman. Mana ko`d:
procedure TDars_Form.FormShow(Sender: TObject);
begin
soz:='45';
{---------- 1 Dars --------}
Uzb[1,1]:='yutuq, muvaffaqiyat, g`alaba'; Eng[1,1]:='achievement';
Uzb[1,2]:='hayratlanarli, qoyilmaqom, ajoyib'; Eng[1,2]:='amazing';
Uzb[1,3]:='qadimgi, qadimiy, ko`hna'; Eng[1,3]:='ancient';
........
Dars_Max[1]:=100;
{---------- 2 Dars --------}
Uzb[2,1]:='1) hisobchi; 2) (yuridk) javobgar'; Eng[2,1]:='accountant';
Uzb[2,2]:='aerobika'; Eng[2,2]:='aerobics';
Uzb[2,3]:='ta`sirini o`tkazmoq, mug`ombirlik qilmoq';
.....
Dars_Max[2]:=126;
..... va hakazo
i:=1;
tj:=0;
Label3.Caption:=IntToStr(i)+'.';
label1.caption:=Uzb[Dars,i];
edit1.text:='';
end;
Mana shu va hakazosi ko`payib ketdi. Shu sababli hotira yetmayapti. Hurmatli Omon, agar iloji bo`lsa mummoni shunda hal qilsak-de, keyingi dasturlarimga boshqa ilojini topsak, yaxshi bo`lardi, chunki men buni bitirib olishim kerak. Bu tipdagi dasturlarim juda ko`p, boshida qilinayotganda albatta bunday kattalashib ketishi hech kimning hayoliga ham kelmagan, agar BD bilan ishlashning iloji bo`lsa o`zim ham yo`q demasdim, ammo BD bilan alohida ishlaymanu, Delphi bilan kelishtirolmayman.
|
