Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

±ð¼ûЦ£¬¸Õ¸Õѧ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


Ïà¹ØÎÊ´ð£º

Delphi½øÏú´æÅ̵ãά»¤ ÅÌÓ¯¿÷¹¦ÄÜ

ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬

Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷

һ¥ÕýÈ·£¡

лл¸÷λÀ²

¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......

delphi ½øÏú´æÊ±Èë¿âÊýÁ¿ºÍ³ö¿âÊýÁ¿¼äµÄ¹ØÏµ

ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......

delphi activx µÄÎÊÌâ 110·Ö

ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ 
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn

http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html

²å¸ö±ê¼Ç

ÒýÓÃ
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
Õ ......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ