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

Delphi²Ù×÷×¢²á±íµÄÒ»°ã²½Öè

Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
8£©ÊÍ·ÅTRegistry¶ÔÏó£»
---------------end------------------
==========================================================
Uses Registry;    //Ìí¼ÓRegistryµ¥Ôª£»
var
    MyReg: TRegistry;    //ÉùÃ÷TRegistry¶ÔÏó£»
begin
    MyReg := TRegistry.Create;   //´´½¨TRegistry¶ÔÏó£»
    try
        MyReg.RootKey := HKEY_LOCAL_MACHINE; //Ö¸¶¨¸ù¼ü£»
        if MyReg.OpenKey('Ö÷¼üÃû', true) then  //´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
        begin
            MyReg.ReadType(---);   //¶Á×¢²á±íÎļþ
            MyReg.WriteType(---);   //дע²á±íÎļþ
        end;
        MyReg.CloseKey;   //±£´æ²¢¹Ø±ÕÖ÷¼ü£»
    finally
        MyReg.Free;    //ÊÍ·ÅTRegistry¶ÔÏó£»
    end;
end;
==========================================================
function OpenKey(const Key:String; CanCreate:Boolean):Boolean;
//µÚ¶þ¸ö²ÎÊýÖ¸Ã÷£¬Èç¹ûÐèÒª´ò¿ªµÄÖ÷¼ü²»´æÔÚʱÊÇ·ñ´´½¨¸ÃÖ÷¼ü
function CreateKey(const Key:String):Boolean;
//´Ë·½·¨ÓÃÓÚ´´½¨Ö÷¼ü£¬Êµ¼ÊÉϲ¢²»³£ÓÃ
function KeyExists(const Key:String):Boolean;
//ÅжÏÖ÷¼üÊÇ·ñ´æÔÚ
(***¶ÔÓÚ×Ö·û´®ÀàÐ͵IJÙ×÷º¯Êý***)
function ReadString(const Name: String):String;
procedure WriteString(const Name, Value: String);
//¶ÔÓÚÆäËüÊý¾ÝÀàÐ͵Ä×¢²á±í¶Áд


Ïà¹ØÎĵµ£º

Delphi formatµÄÓ÷¨

Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·­Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö ......

ÌÔ±¦Æ½Ì¨¿ª·¢ delphi ʾÀý

ÌÔ±¦¿ª·Åƽ̨µÄ¿ª·¢Àý×Ó´ó¶à¶¼ÊÇc#£¬php£¬javaµÈ£¬È±ÉÙPascalµÄÀý×Ó¡£
ÏÖÓÃdelphiдÁËÒ»¸öʾÀý£¬
¹Ø¼üµãÊÇÇ©ÃûµÄÉú³É£¬Ç©ÃûÐè°´key×Öĸ˳ÐòÅÅÐò£¬²¢È¥µôµÈÓںźóÊ×βÏàÁ¬¡£
¹Ø¼ü´úÂ룺
 memstr:= TMemoryStream.Create;
 //ÓÃÊÚȨÂë»ñÈ¡ session
  IdHTTP1.Get('http://container.api.tbsandbox.com/c ......

DelphiÖ÷´Ó±íÀý×Ó

ÔÚsql server µÄnorthwide Öн¨Á¢Ö÷±í
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
Ê×ÏÈ,ҪעÒâÒÔÏÂÉèÖÃ
1.ҪעÒⱨ´Ó±íqrydetailÉèÖÃ,Åú±£´æ¿ªÊ½. ¼´.locktype= batc ......

Êý×Öת»»´óдÈËÃñ±ÒµÄdelphiʵÏÖ

ÎÄÕÂÀ´Ô´£ºIT¹¤³ÌÐÅÏ¢Íø  http://www.systhinker.com/html/09/n-12309.html
֮ǰÓÃAccess×÷Ò»¸öÓ¦Ó㬵«ÕÒ²»µ½»õ±Òת»»³É´óдÈËÃñ±ÒµÄ¹¦ÄÜ£¨µ±È»¿ÉÒÔͨ¹ýexcel ת»»£¬µ«²»ÔÚÒ»¸öÓ¦ÓÃÉÏ£¬·ÅÆú£©¡£ÒÔΪ±È½Ï¼òµ¥£¬×Ô¼ºÊÔд£¬Ë­ÖªÓÃÁËÁ½¸öÍíÉÏ£¬²Å»ù±¾ÊµÏÖ£¬µ«Ã»ÓÐСÊýµã£¨Ôª£©ÒÔÏ»õ±ÒµÄת»»¡£Ò²Ã»ÓÐÕ×µÄÅжϡ£¶øÇÒ¶Ô×Ö· ......

CSDN ѰÕÒ×îºóÒ»¸öDelphiϬÀû¸ç

°Ù¶ÈÖªµÀÕæÀ¬»ø£¬ÄÇô´óµÄÒ»¸öÆóÒµ£¬¾Í¸øÄÇôµã¿Õ¼ä£¬Ìá¸öÎÊ1500×ÖÏÞÖÆÁË¡£ÏëÏëÀ´csdn£¬¹ÒÁËÒ»¸öÐÇÆÚ¶¼Ã»ÈËÀí£¬²»ÖªµÀÊÇÎÒ·ÖÌ«ÉÙ£¬»¹ÊÇÕæµÄ¸ßÊÖ¶¼²»À´ÕâÀ£¿£¿ÆÚ´ýÒ»¸öÓ¢Ð۵ĵ½À´£¬²ËÄñÎÒÔÚÕâÀï°ÝлÁË£¡£¡ÆäʵÕâ¸ù±¾²»ÊÇÉúÃüÄÑÌ⣬ÎҲŸոÕѧ£¬Îʲ»³öÉúÃü¸ßÉîµÄÌâÄ¿À´£º
rT;
delphi7 ,DB:oracle
ÎÊÌâÔËÐй¤³ÌÎļþexe²» ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ