Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄ5ÖÖ·½·¨ÀàÐÍ

DelphiµÄ·½·¨ÀàÐÍÓУº
1.¾²Ì¬·½·¨ (Static) ĬÈÏÀàÐÍ£¬¿ÉÒÔÊ¡ÂԹؼü×Ö
2.ÐéÄâ·½·¨ (Virtual)
3.¶¯Ì¬·½·¨ (Dynamic)
4.ÏûÏ¢·½·¨ (Message)
5.³éÏó·¨·½ (Abstract)
=======================================================
1£©¾²Ì¬·½·¨[static]
¾²Ì¬·½·¨ÀàËÆÓÚͨ³£µÄ¹ý³ÌºÍº¯Êý£¬±àÒëÆ÷ÔÚ±àÒëʱ¾ÍÒÑÖ¸¶¨ÁËÊä³ö¸Ã·½· ......

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


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

Delphi ÁгöĿ¼ÏµÄÎļþ

function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......

delphiÈý²ã¼Ü¹¹

Èý²ã¼Ü¹¹Ö¸µÄÊǽçÃ棬ҵÎñÂß¼­ºÍÊý¾Ý´æ´¢·ÖÀë,²»ÊÇÖ¸ÎïÀíÉÏÊÇ·ñ·ÖÀë¡£
ÕâÑù×öµÄºÃ´¦ÊDzã´Î·ÖÃ÷£¬Î¬»¤ºÃ×ö£¬ÏµÍ³×ÊÔ´Ò²ºÃ·Ö²¼Ê½´¦Àí¡£
Êý¾Ý¿â²ãÄľͲ»ËµÁË£¬ÓÃMSSQL¡¢OrcaleËæÄãÁË£¬¾ÍÊÇÊý¾Ý·þÎñ²ã
ÒµÎñÂß¼­µÄ»°Òª·ÖÎöÇå³þ£¬¾ÍÊÇÖмä²ã
½çÃ棬Ҳ½Ð¿Í»§¶Ë¡£ÕâÀï¾ÍÊǵõ½Êý¾ÝºÍÏÔʾÊý¾ÝµÄ²¿·ÖÁË£¬²»×öÆäËü´¦Àí¡£µ«ÊÇÊý¾ÝÓÐ ......

ÔÚDelphiºÍVCÖд´½¨ºÍµ÷Óö¯Ì¬Á´½Ó¿â

´ó¼ÒÔÚÈí¼þ¿ª·¢Ê±¾­³£»áÓöµ½ÕâÑùµÄÇé¿ö£¬ÔÚ²»Í¬µÄ¿ª·¢»·¾³ÖÐΪʵÏÖһЩ¹¦ÄÜÏàͬµÄ¹ý³Ì£¬ÓÉÓÚ¿ª·¢ËùʹÓõÄÉè¼ÆÓïÑÔ²»Í¬£¬Òò¶ø²»µÃ²»±àдÐí¶àÀàËƵĴúÂ룬ÉõÖÁÓÐʱҪÔÚͬһ¸ö¿ª·¢»·¾³²»Í¬ÏîÄ¿ÖÐÖØд´úÂ룬Õâ¾ÍÔì³ÉÁ˺ܴóµÄ×ÊÔ´ÀË·Ñ¡£¶¯Ì¬Á´½Ó¿âÄܽϺõĽâ¾öÕâ¸öÎÊÌ⣬Öظ´ÀûÓôúÂ뽫´ó´óÌá¸ßÁË¿ª·¢Ð§ÂÊ¡£Ò»°ã£¬Óû§ÔÚÓ¦ÓóÌÐò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ