x := integer(Edit1.Text);
y := integer(Edit2.Text);
z:= x+y;
Label3.Caption := inttostr(z);
µ±x=1 £¬ y=1 ʱ zµÄÊä³öΪ27955424
µ½µ×ÊÇΪʲô£¿ ÔõÑùÊä³öʱÕýÈ·µÄ£¿
x:=strtoint(Edit1.Text);
y:=strtoint(Edit2.Text);
z:=x+y ......
ʱ¼ä¿Ø¼þ 2¸ö
COMBOBOX¿Ø¼þÁ½¸ö£¨COMBOBOX1¶ÔÓ¦EDIT1,COMBOBOX2¶ÔÓ¦EDIT2£©
EDIT¿Ø¼þ2¸ö
DBGrid¿Ø¼þºÍÊý¾Ý¿â±í¸÷1¸ö
¡°²éÕÒ¡±°´¼ü1¸ö
ÈçºÎʵÏÖµã»÷¡°²éÕÒ¡±ºó£¬ÏȰ´Ê±¼ä¿Ø¼þ×î´óʱ¼äºÍ×îСʱ¼äÅжϣ¬È»ºóÔÙ¸ù¾ÝÑ¡ÔñCOMBOBOX1»òÕßCOMBOBOX2Êý¾Ý¡°ÁС±Ö®ºó£¬½«ÐèÒª²éÕÒµÄ×Ö¶ÎÊÖ¶¯ÊäÈëEDIT1»òÕßEDIT2µÄÄÚÈÝ ......
DelphiÖÐÈçºÎ½«ÕûÐÎת»¯Îª×Ö·û´®ÐÍ
inttostr()
֮ǰÎÒÒѾÊÔ¹ýÁË£¬ ²»ÐÐ
x := integer(Edit1.Text);
y := integer(Edit2.Text);
z:= x+y;
Label3.Caption = z;
ÔõôÈÃzÊä³öÕýÈ·£¿
Label3.Caption = inttostr(z);
ÊÔÁË£¬ Êä³öΪ27955424
лл°¡~£ ......
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
......
·þÎñ¶Ë£ºÓÐÊý¾ÝÖ§³Ö×é¼þdspstudent_lzy_server,ÉèÖúÃÁËDATASETΪADOQUERY1£¬²¢ÉèÖÃÁËADOQUEY1µÄÁ¬½ÓconnectstringÊôÐÔ£¬²¢Í¨¹ý´ËÓï¾ä£ºDataSetProvider1.ApplyUpdates(Data, 0, errresult);±£´æÊý¾Ý£¬ÆäÖÐDATAÊÇÒ»¸ö²ÎÊý£¬ËüÊÇÓɿͻ§¶ËClientDataSet1.DeltaÖµÀ´´«Öµ¹ýÀ´µÄ,µ±ÎÒÐ޸Ŀͻ§¶ËÊý¾Ýºó£¬µ÷Ó÷þÎñ¶Ëº¯ÊýʱºòÓÃÉÏà ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉϰ࣬ѧϰµÄ×ܵÃÉϿΣ¬ÒåÎñÀͶ¯Â´ó¼Ò¶¼¿íÈÝһЩ°É£¬ÒÔ×ÔÖÎΪÖ÷
Ö§³Ö
ÔÂÁÁDZˮÉÏÀ´£¬¹À¼Æ´ó¶àÊýʱºò¶¼ÔÚÉ¾Ì ......