Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

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

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

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

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

²å¸ö±ê¼Ç

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

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄhttp·µ»Ø×´Ì¬¼°·´Ó¦Ê±¼ä

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ 
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡

×Ô¼º ......

delphi 2010 ÓÐÆÆ½âµÄÂ𣿸ø¸öÏêϸµÄ£®

ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ

ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â

µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ