µ÷ÓÃÒ»¸öC++дµÄDLL¡£ÀïÃæºÜ¶à²»Í¬µÄÊý¾ÝÀàÐͺÍÖ¸ÕëµÄÓ¦ÓþßÌåµÄº¯ÊýÈçÏÂ
C++µÄº¯ÊýÔÐÍ£ºint __stdcall GetDeliverSMExExEx
(
ULONG* sm_ID, //·µ»Ø£º¶ÌѶID
unsigned char* DestTON, //·µ»Ø£ºÄ¿±êµØÖ·ºÅÂëÀàÐÍ
unsigned char* DestNPI, //·µ»Ø£ºÄ¿±êµØÖ·±àÂë·½°¸
char* Dest ......
´ÓÊÂDELPHI¿ª·¢½«½ü3Ä꣬ÏÖÔÚÏëתJAVA¿ª·¢£¬Ö÷ÒªÕÒÁ˺ܾÃDELPHI·½Ã湤×÷¶¼Ã»×ÅÂ䣬JAVAûÓÐʵ¼Ê¿ª·¢¾Ñ飬ÔÚѧУµÄʱºòѧÁ˵ã»ù´¡£¬³öÀ´×ÔѧÁ˵㣬²»ÖªµÀÃæÊÔµÄʱºòզ˵×Ô¼ºµÄ¿ª·¢¾Àú£¬»¹ÓÐÈç¹ûÎÊÎÒΪɶתJAVA£¬Ò²²»ÖªµÀÔõô»Ø´ð£¬Ï£ÍûÓоÑéµÄͬÐаïÎÒÖ¸µãÏÂ
e
ÓÖÊÇJAVA¡¡
ÄѵÀÓиúÎÒÒ»ÑùÏë·¨µÄÈ˺ܶàÂð
call ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³öÀ´£¬ÇëÎÊÕâ¸öÓ¦µ±ÈçºÎ²Ù×÷£¬ÓÃADOQuery.addº¯ÊýÓ¦¸ÃÔõÑùдSQLÓïÑÔÄØ£¿ÍûÓоÑéµÄ´óÏÀ¸æÖªÒ»¶þ£¬²»Ê¤¸Ð¼¤£¡ ......
procedure TForm1.Button1Click(Sender: TObject);
var ²âÊÔ:String;
begin
²âÊÔ:='abc';
ShowMessage(²âÊÔ);
end;
¿¿£¬Ì«Ç¿ÁË¡£
ÎÒ²ÅÖªµÀ£¬Ï൱ÂäÎ飬ÊDz»ÊÇ£¿
ÖªµÀ¾Í²»ÂäÎéÁË
¹þ¹þ
ÕâÑù¶¼Ðа¡
ÊÜÂ¥Ö÷Æô·¢£¬ÎÒÊÔÁËһϣ¬´°Ìå¡¢¿Ø¼þÒ²ÄÜÓúº×Ö£¡£º
¹À¼ÆÀ ......
ÎÒÏëʵÏÖÒ»¸ö½çÃæ£¬¾ÍÊDZÈÈç½ñÌìÓë2009Äê5ÔÂ8ºÅ²î¾à¼¸ÄêÓÖ¼¸ÔÂÓÖ¼¸Ì죬ÈçºÎÅжϣ¬¼¸ÌìÊDz»´óÓÚÒ»¸öÔµģ¬¶øÇÒÒ²²»ÊÇÄÇÖÖÏÞ¶¨Ò»¸öÔÂ30Ìì»òÕß¶àÉٵģ¬ÎÒÒª¸ù¾Ýʵ¼ÊÀ´µÄ£¬³ÌÐòÒ»´ò¿ª£¬¾ÍÏÔʾ£¬±ÈÈç½ñÌìÊÇ2009Äê10ÔÂ29ºÅ£¬ÄÇ´ò¿ª³ÌÐò¾ÍÏÔʾ£¬½ñÌì¾àÀë2009Äê5ÔÂ8ºÅÓÐ0Äê2ÔÂ24ÌìÕâÑù¡£ÇëÎÊÈçºÎʵÏÖÄØ
DateUtilsµ¥ÔªÖÐÓкܶຯÊý¿ ......
temp:String;
result,R:single;
temp:= '-0.0396';
result:= StrToFloat(temp); //½á¹û²»ÊÇ-0.0396,¶øÊÇÒ»¸öÏà²îÉõÔ¶µÄÊýÖµ
if TryStrToFloat(temp,R) then //Ìý±ðÈË˵µÄÓÃÕâ¸ö°²È«£¬¿ÉÊǽá¹û¸úStrToFloatһģһÑù
result:=R;
ÇëÎÊÕâ¸ö ......