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ÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......
ÌÔ±¦¿ª·Åƽ̨µÄ¿ª·¢Àý×Ó´ó¶à¶¼ÊÇc#£¬php£¬javaµÈ£¬È±ÉÙPascalµÄÀý×Ó¡£
ÏÖÓÃdelphiдÁËÒ»¸öʾÀý£¬
¹Ø¼üµãÊÇÇ©ÃûµÄÉú³É£¬Ç©ÃûÐè°´key×Öĸ˳ÐòÅÅÐò£¬²¢È¥µôµÈÓںźóÊ×βÏàÁ¬¡£
¹Ø¼ü´úÂ룺
memstr:= TMemoryStream.Create;
//ÓÃÊÚȨÂë»ñÈ¡ session
IdHTTP1.Get('http://container.api.tbsandbox.com/c ......
ËùÔÚµ¥Ôª£º DateUtils
Day ¿ªÍ·µÄº¯Êý
1¡¢DayOf()
ÃèÊö£º ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£ ÀýÈ磺 showmessage(DateTimetostr(dateof(now()))); ÄãµÃµ½µÄÊÇ 2003/03/19 ¶ø showmessage(DateTimetostr((now()))); µÃµ½µÄÊÇ
2¡¢DateTimeTostr()
ÃèÊö£º Da ......
Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application'  ......