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

Delphi²Ù×÷INIÎļþµÄÒ»°ã²½Öè

Delphi²Ù×÷INIÎļþ²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓiniFileµ¥Ôª£»
2£©ÉùÃ÷TiniFile¶ÔÏó£»
3£©´´½¨TiniFile¶ÔÏó£»
----------------try------------------
4£©INIÎļþ¶Áд²Ù×÷£»
--------------finally----------------
5£©ÊÍ·ÅTiniFile¶ÔÏó£»
---------------end------------------
==============================================
Uses iniFile;   //Ìí¼ÓiniFileµ¥Ôª£»
var
    MyiniFile: TiniFile;   //ÉùÃ÷TiniFile¶ÔÏó£»
begin
    MyiniFile := TiniFile.Create;  //´´½¨TiniFile¶ÔÏó£»
    try
        MyiniFile.ReadType(---);  //¶ÁINIÎļþ
        MyiniFile.WriteType(---);  //дINIÎļþ
    finally
        MyiniFile.Free;   //ÊÍ·ÅTiniFile¶ÔÏó£»
    end;
end;
==============================================
MyIniFile := TiniFile.Create('MyiniFile.ini');
//ûÓÐÖ¸Ã÷·¾¶£¬Ôò¸ÃÎļþ×Ô¶¯´æ´¢ÔÚWindowsĿ¼ÖÐ
FileName := ExtractFilePath(Paramstr(0))+'MyiniFile.ini';
MyiniFile := TiniFile.Create(FileName);
//Paramstr(0)±íʾ³ÌÐòËùÔÚĿ¼µÄÍêÕû·¾¶
function ReadString(const Section, Ident Default: String):String; override;
MyString := MyiniFile.ReadString('С½ÚÃû', '¹Ø¼ü×Ö', ȱʡֵ);
procedure WriteString(const Section, Ident, Value: String); override;
MyIniFile.WriteString('С½ÚÃû', '¹Ø¼ü×Ö', Öµ);
//µ±INIÎļþ²»´æÔÚʱ£¬µ÷ÓÃÉÏÃæµÄÓï¾ä»á×Ô¶¯´´½¨¸ÃINIÎļþ£¬
//ËùÒÔÒ»°ã²»ÐèÒªÊÖ¶¯´´½¨INIÎļþ¡£
procedure DeleteKey(const Section, Ident: String); override;
MyIniFile.DeleteKey('С½ÚÃû', '¹Ø¼ü×Ö');
//ɾ³ýÒ»ÐмǼ
procedure EraseSection(const Section: String); override;
MyIniFile.EraseSection('С½ÚÃû');
//ɾ³ýÒ»¸öС½Ú
procedure ReadSection(const Section: String; Strings: TStrings); override;
//½«Ö¸¶¨Ð¡½ÚϵÄËùÓйؼü×Ö¶ÁÈ¡ÖÁÒ»¸ö×Ö·û´®Áбí±äÁ¿ÖÐ
procedure ReadSections(Strings: TStrings); override;
//½«I


Ïà¹ØÎĵµ£º

Delphi ÖÐÈçºÎ°²×°×é¼þ?


Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿
2008-12-20 02:03:24
¡¡±êÇ©£ºDelphi Socket ±à³Ì¡¡¡¡¡¡[ÍÆË͵½¼¼ÊõȦ]
ClientSocket ºÍServerSocket
¼¸¸öÖØÒªµÄÊôÐÔ:   
1.clientºÍserver¶¼ÓÐportÊôÐÔ£¬ÐèÒªÒ»Ö²ÅÄÜ»¥ÏàͨÐÅ   
2.clientÓÐAddressÊôÐÔ,ʹÓÃʱÌîд¶Ô·½(server)µÄIPµØÖ·  & ......

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

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

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

Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ