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

unicodeÓëGB2312ת»»µÈDelphiº¯Êý


{ º¯Êý : RESULTSTRING = HexToBin(HEXSTRING)
{ Ä¿µÄ : °ÑÊ®Áù½øÖÆ×Ö·û´®×ª»»Îª¶þ½øÖÆ×Ö·û´®
{
{===============================================================}
{ º¯Êý : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪÕûÊý
{===============================================================}
{ º¯Êý : RESULTSTRING = HexCharToBin(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪ¶þ½øÖÆ×Ö·û´®
{===============================================================}
{ º¯Êý : RESULTINTEGER = Pow(BASE,POWER)
{ Ä¿µÄ : Ö¸Êýº¯Êý
{===============================================================}
{ º¯Êý : RESULTINTEGER = BinStrToInt(BINSTRING)
{ Ä¿µÄ : °Ñ¶þ½øÖÆ×Ö·û´®×ª»»ÎªÕûÊý
{===============================================================}
{ º¯Êý : RESULTSTRING = DecodeSMS7Bit (PDUSTRING)
{ Ä¿µÄ : ½âÂëÒ»¸ö7-bit SMS (GSM 03.38) ΪASCIIÂë
{===============================================================}
{ º¯Êý : RESULTSTRING = ReverseStr (SOURCESTRING)
{ Ä¿µÄ : ·´×ªÒ»¸ö×Ö·û´®
{===============================================================}
{===============================================================}
{ º¯Êý : RESULTSTRING = UniCode2Gb (SOURCESTRING)
{ Ä¿µÄ : ½«UniCode×Ö·û´®×ª»»ÎªGB
{===============================================================}
{===============================================================}
{ º¯Êý : RESULTSTRING = GB2UniCode (SOURCESTRING)
{ Ä¿µÄ : ½«GB×Ö·û´®×ª»»ÎªUniCode
{===============================================================}
unit BinHexTools;
interface
function HexToBin(HexNr : String): String;
function HexCharToInt(HexToken : char): Integer;
function HexCharToBin(HexToken : char): String;
function pow(base, power: integer): integer;
function BinStrToInt(BinStr : String) : Integer;
function DecodeSMS7Bit(PDU : String): String;
function ReverseStr(SourceStr : String) : String;
function GB2UniCode(GB:string): String;
function UniCode2GB(S : String): String;
implementation
uses sysutils, dialogs;
function


Ïà¹ØÎĵµ£º

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......

Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨


 
Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨
ҪʵÏÖĿ¼¼¶µÄ¿½±´£¬¿ÉÒÔÀûÓÃWindows APIº¯ÊýShFileOperation( )£¬Æäº¯ÊýÉùÃ÷ÈçÏ£º
WINSHELLAPI int WINAPI SHFileOperation(
    LPSHFILEOPSTRUCT lpFileOp
);
ʵÀý£º
н¨Ò»¸ö¹¤³Ì£¬Æä³ÌÐòʾÀýÈçÏ£º
unit Unit1;
interface
uses
Windows, Messag ......

ÔÚdelphiÖÐÅжÏ×Ö·û´®ÊÇ·ñÊý×Ö£¬ÒÔ¼°¾«¶È´¦Àíº¯Êý

// ÅжÏÊÇ·ñÊÇÊýÖµÐÍ   By yangxiao  2007.7.21
function isNumeric(strText: WideString): Boolean;
var
  s: string;
  i, l, p: Integer;
begin
  Result := False;
  l := Length(strText);
  if l = 0 then Exit;
  s := '';
  for i:=1 to l do
  ......

ÓÃdelphiÖÆ×÷OCX¿âÎļþ£¨¶þ£©

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨COM Object¡£
new|other|activeX|com object
ÔÚClass Name(±¾ÀýÀïÀàÃûÀïÌîObject£¬¿É°´×Ô¼ºÐèÒªÌîд) ÌîдÀàÃû.(Instancing:ʵÀý´´½¨·½Ê½,Threading Model:Ï ......

×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»(delphi)

ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ