delphi ±àÒëºóÉú³ÉµÄÎļþÃûÊÇÒÔ¹¤³ÌÎļþprogram ºóµÄÃû×ÖÃüÃûµÄ£¬µ«ÎÒÏëÒÔÆäËûµÄÃû×ÖÉú³É£¬ÔÚ²»¸Äprogram µÄÇ°ÌáÏ£¬Çë¸ßÊÖÖ¸µã£¿£¿£¿
Éú³Éºó¸ÄÃû£¿Ò²¾ÍÒ»ÏÂ×ӵŤ×÷¡£
ºÇºÇ¡£¡£¡£¡££¨»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ £©£¿£¿£¿£¿£¿
ÄǾÍÖ»ÄÜÉú³Éºó¸ÄÃûÁË
Éú³Éºó¸ÄÃû£¬ÒÔÇ°×ö¿Î³ÌÉè¼Æ¾ÍÊÇÕâÑùŪµÄ
²»ÖªÂ¥Ö÷ÓõÄDelphiÄĸö°æ±¾ ......
ÏÂÃæµÄ³ÌÐò³öÏֵĴíÎóÊÇ
[Error] INPUTBOX.pas(36): '.' expected but '(' found //¹â±êÍ£ÔÚinputboxµÄ×óÀ¨ºÅºóÃæ
[Error] INPUTBOX.pas(37): '.' expected but '(' found
[Error] INPUTBOX.pas(38): '.' expected but '(' found
[Error] INPUTBOX.pas ......
ͨ¹ýExcelµ¼ÈëÄÚÈݵ½±íA£¬²¢ÏÔʾÔÚdbgridÖУ¬µã»÷ÅúÁ¿Ð޸İ´Å¥£¬Í¨¹ýµ¼Èë±íAµÄÄÚÈÝÐ޸ıíB¡£ÏÖÔÚÓÐÒ»¸öÎÊÌ⣬µ¼ÈëµÄÕâÒ»ÅúÄÚÈÝ£¬Èç¹ûÔÚ±íBÖв»´æÔÚ£¬Ôò²åÈ룬Èç¹ûÔÚ±íBÖдæÔÚ£¬Ôò¸üУ¬ÈçºÎʵÏÖ£¿
ÒýÓÃ
--1¡¢²åÈ룺
insert into B
select ×Ö¶Î1,×Ö¶Î2,¡£¡£¡£¡£¡£¡£ from A
where not exists(select 1 from B where A ......
VBµÄÁ½ÐУº
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ALIVE = &H103
·Òë³ÉDelphiÔõôд£¿
Const
PROCESS_QUERY_INFORMATION = $400;
STILL_ALIVE = $103;
лл~½Ó×ÅÎÊ
VB
Call CloseHandle(hProcess)
¹Ø±Õ½ø³ÌhProcess
·Òë³ÉDelphiÔõôд£¿
VB´úÂ룺
hProcess = OpenProcess( ......
µ÷ÊÔÒ»¸ö³ÌÐò£¬Ï°àºóûÍê³É£¬µÚ¶þÌìÉÏ°à¡¡ÔÙ´ò¿ª¹¤³Ì£¬ÀïÃæµÄ¶Ïµã¶¼Ã»ÓÐÁË£®¼ÇµÃÒÔÇ°Óãģ·Ê±£¬Ôٴδò¿ª¹¤³Ì£¬ÉϴεĶϵ㻹¿ÉÒÔÔÙÓã¬Ôõô£²£°£±£°ÖоÍûÓÐÕâ¸ö¹¦ÄÜÁËÄØ£®
ͬÑù£¬ÊéÇ©Ò²ÊÇ£¬±¾´Î´ò¿ª¹¤³ÌÉèÖõÄÊéÇ©£¬Ï´ÎÔÙ´ò¿ª¹¤³Ì£¬¶¼Ã»ÁË£®²»ÖªµÀÊDz»ÊǣɣģÅÑ¡ÏîûÓÐÉèÖúã®
ÖªµÀµÄ¸ø¸öÌáʾ£¬Ð»Ð»À²¡«£¡ ......
Åöµ½Ò»¸ö±È½ÏÆæ¹ÖµÄÎÊÌ⣬ʹÓÃstrtofloatº¯Êý£¬Ê¹ÓõıäÁ¿µÄÖµ×ÜÊǵÈÓÚÒ»¸ö¹Ì¶¨µÄÖµ£¬¸Ä±ä²»ÁË¡£
ֵΪ £º 2.0909976781e-307
var
i:double;
begin
i := StrToFloat(edt1.Text);
// i := StrToFloat('93.33');
edt1.Clear;
end;
¼´Ê¹ÎÒ½«×¢Ê͵ôµÄÓï¾ ......