Delphida muammo!!!

[Ustoz]

Сообщение от Loock

Ta'lim sohasida qo'l keladimi tuzayotgan dasturiz ya'ni foydasi bormi

Albatta. Xudo xohlasa bu yil ingliz tili kompyuterda degan dars boshlash niyatidaman. O`shanda ishlataman. Mahalliy tarmoqda ishlaydigan dasturlar yaratishni boshlayman. Ana o`shanda rosa maslahatlar kerak bo`ladi.

[barlos]

Оффтоп:

Савоб ишни ҳар ким, ҳар куни қилиш керак деган пурмаъно гап бор. Шу десангиз, каминага блог (Блок деган шоир ёки блок ғишт билан адаштирилмасин) керак. Нима учун керак бўп қолди дейсизми? Унда эшитинг:
... Кеча биттаси (тўртта гапининг бирида лоф аралашмаса бўлмайдиган бу одам инсон сифатида тилло ) бир гурунгда "Блоги бўлмаган одам думи юлинган товуқ, йўғе, хўроз кабидир" деб қолди. Яна айтдики, бу блог орқали кўўп пул топиш мумкин экан. Рекламадан келадиган даромадники қўяверар экансиз. Исмиям кимийди-я, ҳа эсладим, Файзбекми, Фаёзбекми, Фейсбугми деган бир йигит шуни орқасидан "қора қозони"ни вақирлатиб қайнатаётганмиш. Бир қарасанг, кўнгли яримларга ёрдам, бир қарасанг, хайрия марафонлари ўтказаётганмишу, лекин пули, аксинча, кўпайиб кетаётганмиш. Тавба, бўлиши мумкинми-а, шу? Ниможит бит!
Биздан ҳам чиқсин энди блогчила, дунёни оғзи очилиб қолсин. Ривалдо келганда "ўххў" деганлар, "вўххў" деворсин
Бошқа бир илмдорроғи нима дейди денг? "Ука, санам манга ўхшаб шу форум аъзосисан. Сайтда ОмоН деган программист бор. Кимгадир текинга ҳам блог очиб берган деб эшитувдим. Блогспот.комга бирорта блог қўйиб берар, блоггер бўпкетсанг ҳақ-пақ берарсан".
Ўйланиб қолдим... Нима десам экан, модераторимизнинг мушуклари ҳам текинга офтобга чиқмаётган бу замонда, акамбойдан иккиланмасдан сўрасаммикан ёки Файзбекка ўхшаб миллионер бўлганимдан кейин ҳаққизни оласиз десаммикан?
Маслаҳатлариззи кутиб қолувчи Эштўхта Қўйбоқаров

[NETWORK]

Сообщение от Ustoz

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.

ini файл билан богланг!

[Ustoz]

Сообщение от NETWORK

ini файл билан богланг!

Koshki edi tushunsam.

[OmoN]

Сообщение от Ustoz

Koshki edi tushunsam.

ini fayldan fiydalanishni maslahat berganimga 3 yil bo‘ldi...