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׫д²¢·¢²¼
Ïà¹ØÎĵµ£º
Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then
begin
if Msg.wParam > 0 then
begin
if DBGrid.Focused then
......
ÔÚÍøÉÏÒ²¿´µ½ÁËһЩÌáÉý½ø³ÌÁîÅƵĺ¯Êýµ«¶¼²»ÔõôºÃÓÃ,×îºóÎÒ»¹ÊÇ´ÓÒ»¸öºÚ¿ÍºóÃųÌÐòµÄÔ´´úÂëÖÐÌáÈ¡³öÁËÒ»¸öºÃµÄÌáÉý½ø³ÌÁîÅƵĺ¯Êý,²»¸Ò¶ÀÏí,¸ú´ó¼Ò·ÖÏíÏÂ.ÄǸöºóÃÅÕæµÄдµÄºÜºÃ...
HysiaÌáʾÄã:
Õâ¸öº¯ÊýÓÃÔÚ¶Ô¸¶²¡¶¾µÄ³ÌÐòÖÐЧ¹ûºÜºÃ,Ö»ÓÐÌáÉý×ÔÉíȨÏÞ²ÅÄÜKILLµô²¡¶¾½ø³ÌÎÒÔøдд³öÀ´³¢ÊÔ½áÊøWinlogon½ø³Ì,µ¼ÖµĽṠ......
ÕâÑùÒ»À´£¬DelphiʹÓÃWebserviceºÍJAVAͨѶʱ£¬¿ÉÒÔ½«DELPHIµÄʱ¼äÖ±½Ó´«¸øJAVA¡£´Ó¶øÃâÈ¥ÁËʱ¼ä×Ö·û´®parseÖ®¼äµÄÏûºÄ£¬Ìá¸ßµÄ³ÌÐòЧÂÊ¡£
Delphiʱ¼äʵÖʾÍÊÇdoubleÀàÐÍ£¬ÕûÊý²¿·Ö±íʾÌ죬СÊý²¿·Ö±íʾµ±Ììʱ¼ä£¬Ã¿ºÁÃëΪ1/86400000¡£¿¼Âǵ½Ê±ÇøµÄת»»ºó£¬JAVAºÍDELPHIʱ¼äÖ®¼äµÄת»»ÀàÈçÏ£º
import java.util.Calendar ......
ADO ʹÓà ORACLE provider FOR OLE DB Çý¶¯Ê±
µ÷Óô洢¹ý³ÌÐèÒª·µ»ØÓαêʱ£¬ÔÚÁ¬½Ó×Ö·û´®ÖÐÔö¼Ó
PLSQLRSet=1 ²ÎÊý¡£
´æ´¢¹ý³ÌÖеÄÓα겻ÐèÒª¸¶³õʼֵ
Èç:
sp1: TADOStoredProc;
sp1.Close;
sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......