Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖÐʵÏÖÈ«½Çת°ë½Ç

DelphiÖÐʵÏÖÈ«½Çת°ë½Ç
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 ÔÚwindowsÖУ¬ÖÐÎĺÍÈ«½Ç×Ö·û¶¼Õ¼Á½¸ö×Ö½Ú£¬
 ²¢ÇÒʹÓÃÁËascii¡¡chart  2 
(codes  128 - 255
)¡£
È«½Ç×Ö·ûµÄµÚÒ»¸ö×Ö½Ú×ÜÊDZ»ÖÃΪ163£¬
 ¶øµÚ¶þ¸ö×Ö½ÚÔòÊÇÏàͬ°ë½Ç×Ö·ûÂë¼ÓÉÏ128£¨²»°üÀ¨¿Õ¸ñ£©¡£
 Èç°ë½ÇaΪ65£¬ÔòÈ«½ÇaÔòÊÇ163£¨µÚÒ»¸ö×Ö½Ú£©¡¢
193 £¨µÚ¶þ¸ö×Ö½Ú£¬ 128 + 65 £©¡£
 ¶ø¶ÔÓÚÖÐÎÄÀ´½²£¬ËüµÄµÚÒ»¸ö×Ö½Ú±»ÖÃΪ´óÓÚ163£¬£¨
 Èç ' °¢ ' Ϊ:
176   162 £©,ÎÒÃÇ¿ÉÒÔÔÚ¼ì²âµ½ÖÐÎÄʱ²»½øÐÐת»»¡£
}
begin
  nlength: =
length(s);
   if  (nlength = 0 ) then
   
exit;
  str: = '' ;
  setlength(ctmp,nlength + 1 );
 
ctmp: = s;
  i: = 1 ;
   while  (i # 163 ) then   //
Èç¹ûÊǺº×Ö
     begin
      str:
= str + c1;
      str: = str +
c2;
      inc(i, 2
);
       continue ;
   
end;
     if  (c1 = # 161 ) and (c2 = # 161 )
then   // Èç¹ûÊÇÈ«½Ç¿Õ¸ñ
    
begin
      str: = str + '   '
;
      inc(i, 2
);
       continue ;
    end;

    str: = str + c1;
    inc(i);
 
end;
  result: = str;
end; ---
±¾ÎÄÕÂʹÓá°¹ú»ªÈí¼þ¡±³öÆ·µÄ²©¿ÍÄÚÈÝÀëÏß¹ÜÀíÈí¼þMultiBlogWriter׫д²¢·¢²¼


Ïà¹ØÎĵµ£º

¶ÁÊé DelphiÏÂÉîÈëWindowsºËÐıà³Ì µÚ¶þÌì

¼¼Êõ½»Á÷,DH½²½â. ½ñÌì½øÈëÕâÊéµÚ¶þÕ ¹³×Ó(HOOK).
ÏÈ˵˵¹³×ÓÊÇʲô?
¹³×ÓÆäʵ¾ÍÔÚÄã»·¾³ÖмÓÉÏÒ»²ã¹ýÂË,ÔÚÌØÊâÇé¿öϾʹ¥·¢¹³×ӻص÷º¯Êý.
±ÈÈç˵ÎÒÃǰ²×°ÁËÈ«¾ÖµÄ¼üÅ̹³×Ó,ÄÇôµ±ÎÒÃǰ´¶¯¼üÅÌÉÏÃæµÄ¼üµÄʱºò,¹³×ӵĻص÷º¯Êý¾Í»á´¥·¢.
ÎÒÃÇÒ²ÄÜ¿´µ½±¾À´ÊÇÖ±À´Ö±ÍùµÄ,½á¹ûÏÖÔÚÖм䰲װÁËÒ»²ã¹ýÂË,Ï ......

³ÏƸ£ºDelphiÈí¼þ¹¤³Ìʦ

¾ßÌåÒªÇó£º
1¡¢¼ÆËã»ú¼°Ïà¹Ø×¨Òµ×¨¿ÆÒÔÉÏѧÀú£¬ÓÐ2ÄêÒÔÉϵŤ×÷¾­Ñ飻
2¡¢¾«Í¨Delphi²¢ÓÐÔËÓÃDelphi³É¹¦¿ª·¢ÏîÄ¿µÄ¾­Ñ飻
3¡¢ÊìÏ¤ÍøÂ翪·¢£¬Óпؼþ¿ª·¢¾­ÑéÕßÓÅÏÈ¿¼ÂÇ£»
4¡¢ÊìϤÈí¼þ¹¤³Ì£¬¾ßÓÐÁ¼ºÃµÄ¿ª·¢Ï°¹ß£¬ÄÜÕýȷʹÓð汾¿ØÖƹ¤¾ß£»
5¡¢¾ßÓкÜÇ¿µÄÍŶӺÏ×÷ºÍ³Ô¿àÄÍÀ͵ľ«Éñ£¬¾ßÓÐһ˿²»¹¶µÄ¹¤×÷×÷·çºÍÈÏÕæ¸ºÔðµÄ ......

DelphiÖÐADOÒì²½Ö´Ðз½Ê½

     µ±A D O¿ªÊ¼´¦ÀíÊý¾Ýºó£¬Ó¦ÓóÌÐò±ØÐëµÈµ½A D O´¦ÀíÍê±ÏÖ®ºó²Å¿ÉÒÔ¼ÌÐøÖ´ÐС£µ«
ÊdzýÁËͬ²½Ö´Ðз½Ê½Ö®Í⣬ A D OÒ²ÌṩÁËÒì²½Ö´Ðеķ½Ê½£¬ÔÊÐíµ±A D O´¦Àíʱ£¬
Ó¦ÓóÌÐòÈÔÈ»Äܹ»ÏȼÌÐøÖ´ÐС£¶øµ±A D O´¦ÀíÊý¾ÝÍê±ÏÖ®ºó£¬ A D O»áÒÔʼþµÄ·½
ʽ֪ͨӦÓóÌÐò£¬´ËʱӦÓóÌÐò¿ÉÒÔÔÙ¸ù¾ÝA D OÖ´ÐÐµÄ ......

Delphi 7 µÄÒ»¸öÆæ¹ÖµÄBug

½üÀ´·¢ÏÖÒ»¸öDelphiĪÃûÆäÃîµÄbug£¬µ±Ê¹ÓÃSetOptionalParamʱ£¬²»ÄÜʹÓÃÒ»Á¬´®Êý×ÖµÄ×Ö·û´®£¬Èç'101'£¬×¢Ò⣬ÊÇ´øÒýºÅµÄ¡£ÔÚSaveToFileʱ£¬¾Í»á³öÏÖ'Invalid field type'µÄÒì³££¬ÕæÊǰÙ˼²»µÃÆä½â£¡Á¬'001'ÕâÖÖ´®Ò²²»ÐУ¬È¥µôÒýºÅ£¬Ö±½Ó°´Êý×Ö¸³Öµ£¬ÔòÕý³£¡£
procedure TForm1.Button1Click(Sender: TObject);
var
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ