Qhov kev pab cuam lub laij lej yog ib qho ntawm cov haujlwm kev ua haujlwm. Xws li cov ntawv thov tuaj yeem siv yuav luag txhua hom lus programming. Ib qho ntawm cov kev tawm tswv yim tshaj plaws hauv xov tooj cua yog Delphi, uas tuaj yeem siv los sau cov lej cim kev yooj yim thiab muaj txiaj ntsig zoo.
Tsim nyog
Delphi programming ib puag ncig
Cov Lus Qhia
Kauj ruam 1
Pib Delphi lub cajmeem koj siv. Npaj tawm lub interface rau koj daim ntawv thov. Yuav muaj 26 nyees khawm ntawm daim foos, 10 tus ntawm yog lub luag haujlwm rau tus lej, thiab seem yog rau cov haujlwm. Tsis tas li ntawd, yuav muaj TPanel tiv thaiv uas qhov txiaj ntsig ntawm qhov kev ua yuav tshwm sim.
Kauj ruam 2
Ntxiv 4 qhov hloov pauv rau cov lej uas yuav khaws cov lej nkag los ntawm tus neeg siv thiab txiav txim siab hom. Piv txwv li:
var
a, b, c: tiag; // tus lej uas tus neeg siv nkag mus
d: tus lej; // tshuab xam zauv tes hauj lwm
Kauj ruam 3
Cov hloov pauv tau tuaj yeem ntxiv rau ob qho kev tiv thaiv thiab ntiag tug. Tam sim no kov OnClick kev tshwm sim rau txhua tus lej khawm. Rau txhua tus lej, kev cai yuav zoo ib yam:
cov txheej txheem TForm1. Button1Click (Sender: TObject);
pib
Panel1. Caption: = Panel1. Caption + 'number'
xaus;
Hloov "tooj" nrog lub pob npe (yog tias nws yog tus naj npawb 0, tom qab ntawd Panel1. Caption + '0').
Kauj ruam 4
The variable d yog hom integer thiab yuav muaj qhov sib thooj zauv ntawm qhov kev nqis tes ua. Yog tias kev sib npaug yuav tau nqa tawm, tom qab ntawd koj tuaj yeem tsim qhov kev txiav txim kom muaj nuj nqis 1, yog qhov sib faib - tus nqi 2, yog tias ntxiv - tus nqi 3, thiab lwm yam.
cov txheej txheem TForm1. ButtonMultiplyClick (Sender: TObject); // multiply qhov kev txiav txim
pib
a: = StrToFloat (Panel1. Caption); // tom qab koj nias lub pob, tus nqi ntawm cov kuj sib txawv thiab a tau txais kev cawmdim
d: = 1; // action kuj sib txawv thiab tau teem rau tus nqi coj
Panel1. Caption: = '';
xaus;
Kauj ruam 5
Ua cov haujlwm zoo sib xws rau kev faib (ButtonDivClick), ntxiv (ButtonPlusClick), rho tawm (ButtonMinusClick), thiab kev nthuav tawm (ButtonPowerClick).
Kauj Ruam 6
Txhawm rau kev ua kom muaj nuj nqis `` = '', koj yuav tsum ua qhov xwm txheej thiab txiav txim siab txhua qhov nqis tes ua:
cov txheej txheem TForm1. ButtonClick (Sender: TObject);
pib
cov ntaub ntawv d ntawm
1: pib // yog tias d = 1, i.e. tus lej khawm yog nce, tom qab ntawd qhov nqis tes ua tshwm sim
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
xaus;
2: pib
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Kauj Ruam 7
Siv ntxiv, rho tawm, thiab ntsuas sab nraud tib yam. Lub laij lej tau npaj txhij.