DelphiÓï·¨³ö´íµÄÆæ¹Ö
if (svSearch.head.Flag = $C8BD3 ) then
if (svSearch.head.Type = 3) then
begin
bSearchSv := TRUE;
break;
end;
ÉÏÃæÕâ¸öÔÚD7ÖÐʽÕýÈ·µÄ,ÏÂÃæÈ´´íÁË,¸ãµÄÎÒĪÃûÆæÃî,if ºÍ then Ö®¼äÔÚ¼Ó¸öÀ¨ºÅÒ²²»ÐÐ,Ϊʲô?
if(svSearch.head.Flag = $C8BD3 ) and (svSearch.head.Type = 3) then
begin
bSearchSv := TRUE;
break;
end;
ÄѵÀANDÔÚIFÓï¾äÖÐÕâÑù²»ÄÜÓÃÂð?
±ÉÈËû·ÖÁË,¼ûÁÂ.
Delphi(Pascal) code:
if((svSearch.head.Flag = $C8BD3 ) and (svSearch.head.Type = 3)) then
Ã²ËÆifºóÃæÉÙÁ˸ö¿Õ¸ñ¡¡
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****
Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
ÏÖÔÚÓиöÎļþ£¬Îļþ±È½Ï´ó£¬ÐèÒªÖ±½ÓǶÈëµ½exeÖУ¬ÔÚ³ÌÐòÖÐʹÓ㨷Ç×ÊÔ´ÎļþÐÎʽµÄǶÈ룩
×îºóʵÏÖµÄЧ¹ûÀàËÆÓÚÕâÑù¡£
ÆäÖÐÎļþµÄÄÚÈÝÖ±½ÓǶÈëµ½ÁË´úÂë¶Î1Ö®ºó£¬¼ÙÉèÎļþÄÚÈݵÄÊ×µØÖ·ÊÇaddr£¬ÄÇôÔÚ´ú ......
ÎÒÓà socket ½ÓÊÕµ½NO ,½ÓÊÕµ½Ò»¸öNO¾Íͨ¹ýCarthread:=TCarthread.create(NO) ;´´½¨Ò»¸öỊ̈߳¬
ÊDz»ÊǽÓÊÕµ½¶à¸öNO£¬¾Í»á´´½¨¶à¸öÏß³ÌÄØ£¿
Èç¹ûÕâÑùµÄ»°ÎÒ½ÓÊÕµ½NOΪEE,ÓÚÊÇ´´½¨Ò»¸öỊ̈߳¬¹ýÁËÒ»»áSOCKETÓÖ ......