±ð¼ûЦ£¬¸Õ¸Õѧdelphi±àд¼ÆËãÆ÷µÄСÎÊÌâ
3¸öÎı¾±à¼¿ò
ʵÏÖ µÚÒ»¸öºÍµÚÈý¸ö¿òÊäÈëÊý×Ö ÖмäÊäÈë+ - * / ÔËËã·û µã»÷°´Å¥³öÏÖ½á¹û Óà ¼Ó ¼õ ³Â ³ý Ëĸöº¯Êý ʵÏÖ
function jia(x,y:Double):Double ; º¯Êý¼Ó
var
c:Double;
begin
c:=x+y ;
jia:=c;
end;
function jian(x,y:Double):Double ; º¯Êý¼õ
var
d:Double;
begin
d:=x-y;
jian:=d;
end;
function chen(x,y:Double):Double ;º¯Êý³Æ
var
e:Double;
begin
e:=x*y ;
chen:=e;
end;
function chu(x,y:Integer):double; º¯Êý³ý
var
e:Double;
begin
e:=x/y ;
chu:=e;
end;
procedure TForm1.Button1Click(Sender: TObject); °´Å¥µÄʼþ´úÂë
var
x,z,d:Double;
y:char;
begin
x:=strtoint(Edit1.text); µÃµ½µÚÒ»¸öÊý×Ö
y:=Edit2.text; ÕâÀï³ö´íÁË Ç°ÃæÊÇchar ÀàÐÍ ¿ÉÊDz»ÖªµÀÔõô¸Ä z:=strtoint(Edit3.text); µÃµ½µÚ¶þ¸öÊý×Ö
if y="+" then Èç¹û Y=¡°+¡±ºÅ
d:=jia(x,y); µ÷Óà jia º¯Êý
begin &nbs
Ïà¹ØÎÊ´ð£º
ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬
Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷
һ¥ÕýÈ·£¡
лл¸÷λÀ²
¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html
²å¸ö±ê¼Ç
ÒýÓÃ
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
Õ ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......