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µÄ·½·¨ÀàÐÍÓУº
1.¾²Ì¬·½·¨ (Static) ĬÈÏÀàÐÍ£¬¿ÉÒÔÊ¡ÂԹؼü×Ö
2.ÐéÄâ·½·¨ (Virtual)
3.¶¯Ì¬·½·¨ (Dynamic)
4.ÏûÏ¢·½·¨ (Message)
5.³éÏó·¨·½ (Abstract)
=======================================================
1£©¾²Ì¬·½·¨[static]
¾²Ì¬·½·¨ÀàËÆÓÚͨ³£µÄ¹ý³ÌºÍº¯Êý£¬±àÒëÆ÷ÔÚ±àÒëʱ¾ÍÒÑÖ¸¶¨ÁËÊä³ö¸Ã·½· ......
Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏ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 ......
Èý²ã¼Ü¹¹Ö¸µÄÊǽçÃ棬ҵÎñÂß¼ºÍÊý¾Ý´æ´¢·ÖÀë,²»ÊÇÖ¸ÎïÀíÉÏÊÇ·ñ·ÖÀë¡£
ÕâÑù×öµÄºÃ´¦ÊDzã´Î·ÖÃ÷£¬Î¬»¤ºÃ×ö£¬ÏµÍ³×ÊÔ´Ò²ºÃ·Ö²¼Ê½´¦Àí¡£
Êý¾Ý¿â²ãÄľͲ»ËµÁË£¬ÓÃMSSQL¡¢OrcaleËæÄãÁË£¬¾ÍÊÇÊý¾Ý·þÎñ²ã
ÒµÎñÂß¼µÄ»°Òª·ÖÎöÇå³þ£¬¾ÍÊÇÖмä²ã
½çÃ棬Ҳ½Ð¿Í»§¶Ë¡£ÕâÀï¾ÍÊǵõ½Êý¾ÝºÍÏÔʾÊý¾ÝµÄ²¿·ÖÁË£¬²»×öÆäËü´¦Àí¡£µ«ÊÇÊý¾ÝÓÐ ......
´ó¼ÒÔÚÈí¼þ¿ª·¢Ê±¾³£»áÓöµ½ÕâÑùµÄÇé¿ö£¬ÔÚ²»Í¬µÄ¿ª·¢»·¾³ÖÐΪʵÏÖһЩ¹¦ÄÜÏàͬµÄ¹ý³Ì£¬ÓÉÓÚ¿ª·¢ËùʹÓõÄÉè¼ÆÓïÑÔ²»Í¬£¬Òò¶ø²»µÃ²»±àдÐí¶àÀàËƵĴúÂ룬ÉõÖÁÓÐʱҪÔÚͬһ¸ö¿ª·¢»·¾³²»Í¬ÏîÄ¿ÖÐÖØд´úÂ룬Õâ¾ÍÔì³ÉÁ˺ܴóµÄ×ÊÔ´ÀË·Ñ¡£¶¯Ì¬Á´½Ó¿âÄܽϺõĽâ¾öÕâ¸öÎÊÌ⣬Öظ´ÀûÓôúÂ뽫´ó´óÌá¸ßÁË¿ª·¢Ð§ÂÊ¡£Ò»°ã£¬Óû§ÔÚÓ¦ÓóÌÐò ......