RT
²»»á£¬VCL±Ï¾¹ÊÇ×ßRAD£¬¶øÇÒÊǷdz£³ÉÊìµÄ¼Ü¹¹ºÍÓ¦Ó㬶ø·ÇC/C++·×Ó¡£¡£¡£¡£
Óû§µÄÒªÇóÔ½À´Ô½¿Á¿Ì£¬¸Ð¾õVCL¿Ø¼þÔ½À´Ô½²»Ë¬ÁË£££ÒªÐ´´óÁ¿µÄ´úÂë¡£
·¢·¢ÀÍɧ¡£ºÇ¡£
¸Ð¾õMFCµÄ¿Ø¼þʹÓÃÆðÀ´¸üÂé·³¡£¡£¡£
ÒýÓÃ
Óû§µÄÒªÇóÔ½À´Ô½¿Á¿Ì£¬¸Ð¾õVCL¿Ø¼þÔ½À´Ô½²»Ë¬ÁË£££ÒªÐ´´óÁ¿µÄ´úÂë¡£
·¢·¢ÀÍɧ ......
C++´úÂëÈçÏ£º
int Query_Pos_Card12£¨HANDLE icdev£¬LPINT CardType, LPINT Opt_Num, LPINT Serno£¬LPSTR Cardno£¬
unsgind long * CardSerno£¬ LPINT Value£¬LPINT Count£¬LPINT UserType£¬,LPINT Consum_Add, LPINT use_term ,
int WaitTime£©
²¢ÇÒ¸ø³öÔÚdelphiÖÐÈçºÎµ÷Óã¬Îҵĵ÷Óùý³ÌÈçÏ£º
p ......
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,n: Integer;
begin
n:=0;
k:=StrToInt(Edit2.Text);
for i:=StrToInt(Edit1.Text) to k do
begin
n:=n+1;
//if i=k then break;
end;
Edit3.Tex ......
delphi¶þ½øÖƲéѯ¼¸¸ö×Ö½ÚÓÃIFTHENÈ¥±È½ÏÌ«ÂýÁË£¬
if (buffer[0]=$A9 ) and ( buffer[1]=$B5 ) and ( buffer[2]=$B2 ) and ( buffer[3]=$04 ) then
begin
¼ÈÈ»ÊÇÏàÁ¬µÄ£¬²»ÄܰÑËü×÷Ϊһ¸öÕûÌåÈ¥²éÕÒÂð
Á¬ÐøµÄ4¸ö×ֽڵıȽÏ, ¿ÉÒÔ¿´³ÉDWORDÀàÐ ......
ßí¡ÎÒÊǸöÔÚУµÄѧÉú¡£
ÏëÀûÓÃ¼ÙÆÚºÍÒµÓàʱ¼äѧϰÏÂDELPHI¡£
µ«È´²»ÖªµÀ¸Ã´ÓÄÄÀïÔõÑù¿ªÊ¼Ñ§Ï°¡£
Ï£Íû·¹ý¿´µ½µÄ¸÷λǰ±²½²ÊöÒ»ÏÂ×Ô¼ºÑ§Ï°µÄ¾Ñ飬
±ÈÈç¸Ã¿´Ð©Ê²Ã´Ê飬
¼Ç±³Ò»Ð©Ê²Ã´¶«Î÷£¬
ÆðÏÈÔËÐÐЩʲôÑùµÄ´úÂë»òС³ÌÐòÀ´ÊìϤÔËÓá
Èç¹ûÔÙÄÜΪÎÒÌáһЩѧϰµÄÒâ¼û½¨Òé¾Í¸üºÃ²»¹ýÁË¡£¨ÊDz»ÊÇ̰ ......
»¹Ê£Ò»Äê¾ÍÒª±ÏÒµÁË¡£×Ô¼ºÓÉÓÚ¸÷ÖÖÔÒò¡£Õ⼸ÃÅÓïÑÔ¶¼Ñ§¹ý¡£»¹¶¼×ö×ö¹ýÏîÄ¿¡£Óйý¾Ñ飬±¾ÈËÒ²Éî֪̰¶à½À²»Àã¬ÎªÁËÃ÷ÄêÄܹ»ºÜºÃµÄ¾ÍÒµ¡£²»ÖªµÀ¸ÃÑ¡Ôñʲô£¬¸Õ·ÅÆúÄÄÒ»¸ö¡¡¡¡·Ç³£¿àÄÕ¡¡¡¡Ï£Íû´ó¼Ò¸ø³ö¸öµã×Óµ½µ×ѧʲô±È½ÏºÃ£¬±È½ÏÓоºÕùÁ¦¡£Ð¡Éú²»Ê¤¸Ð¼¤£¬Ï£Íû¸÷λ´óϺ¸øµã½¨Òé¡£ÔÚÏߵȡ£
ÁíÍâÇë²»ÒªÕ³Ìù±ðÈ赀 ......