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

DelphiµÄÄÚÖú¯Êý²Ù×÷INIÎļþ

ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString
ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´Êµ
ÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£¬×¨ÃÅÓÃÀ´¶ÔINIÎļþ½øÐжÁд²Ù×÷¡£Èç¹ûÔÚ³ÌÐòÖÐÒªÓõ½TIniFileÀà»òÆä·½·¨ÊôÐÔ£¬¾Í±ØÐëÔÚ³ÌÐòµ¥ÔªµÄusesÓï¾äÖÐÊÖ¹¤¼ÓÈë¶ÔIniFilesµ¥ÔªµÄÒýÓá£
2¡¢Create·½·¨
¸Ã·½·¨ÓÃÀ´´´½¨Ò»¸ö´¦ÀíINIÎļþµÄTIniFileÀàÐÍʵÀý¡£
·½·¨ÉùÃ÷£ºconstructor Create(const FileName:string);
²ÎÊý˵Ã÷£ºFileNameÖ¸Ã÷´ý´´½¨µÄINIÎļþµÄÎļþÃû£»
×¢
ÊÍ£ºÔÚʹÓÃTIniFile¶ÔÏó֮ǰ£¬±ØÐëÏÈÓô˷½·¨´´½¨Ò»¸öINIÎļþµÄʵÀý¡£FileNameÖпÉÒÔ°üº¬Â·¾¶Ãû£¬È±Ê¡Ê±ÎªWindowsËùÔÚĿ¼£¨Ò»
°ã¾ÍÊÇC:\windows,¶ÔÓÚWindows
NTÀ´Ëµ£¬ÔòÒ»°ãÊÇc:\winnt)¡£ÓÃCreate·½·¨´´½¨µÄʵÀý£¬ÔÚʹÓÃÍêÖ®ºó£¬µ÷ÓÃFree·½·¨ÊÍ·ÅÄÚ´æ¡£
3¡¢ReadSection·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁ³öÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·û´®Áбí¶ÔÏóÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSection(const Section:string; Strings:TStrings);
²ÎÊý˵Ã÷£ºSectionÖ¸Ã÷Òª¶ÁÈ¡¶ÎµÄ¶ÎÃû£»
StringsÖ¸Ã÷´æ·Å×Ó¼üÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSection·½·¨½ö¶ÁÈëÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû£¬µ«²»¶ÁÈë×Ó¼üµÄÖµ¡£
4¡¢ReadSections·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁÈ¡ËùÓжÎÃû£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·ûÖÐÁбíÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSections(Strings:TStrings);
²ÎÊý˵Ã÷£ºStrings²ÎÊýÖ¸Ã÷´æ·Å¶ÎÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSections·½·¨½«INIÎļþÖÐËùÓжεĶÎÃû¶Á³ö£¬´æÈëÒ»Ö¸¶¨µÄ×Ö·û´®ÁбíÖУ¬´Ë×Ö·û´®Áбí¿ÉÒÔÖ±½ÓʹÓÃij¸öÁбí¿òµÄItemsÊôÐÔ¡£
5¡¢ReadSectionValues·½·¨
¸Ã·½·¨´ÓINIÎļþÖжÁÈëÖ¸¶¨¶ÎµÄËùÓÐ×Ó¼üÃû¼°Æä¼üÖµ£¬²¢´æÈëStrings²ÎÊýÖ¸¶¨µÄ×Ö·û´®ÁбíÖС£
·½·¨ÉùÃ÷£ºprocedure ReadSectionValues(const Section:String; Strings:TStrings);
²ÎÊý˵Ã÷£ºSectionÖ¸Ã÷Òª¶ÁÈ¡¶ÎµÄ¶ÎÃû£»
StringsÖ¸Ã÷´æ·Å¶ÎÃûµÄ×Ö·û´®ÁÐ±í£»
×¢ÊÍ£ºReadSectionValues·½·¨ÓëReadSection·½·¨µÄÇø±ðÔÚÓÚºóÕß½ö¶ÁÈë×Ó¼üÃû£¬ÃæÇ°Õß³ýÁ˶ÁÈ¡×Ó¼üÃûÖ®Í⣬»¹¶ÁÈ¡¸Ã×Ó¼ü¶ÔÓ¦µÄ¼üÖµ¡£¶ÁÈëµÄ×Ó¼üÃû¼°¼üÖµÔÚ×Ö·û´®ÁбíÖеĴæ·Å·½·¨ÓëÔÚÎļþÖеÄÏÔʾ·½·¨Ò»Ö£¬¼´"Key=Value"ÐÎʽ¡£
6¡¢EraseSection·½·¨
¸Ã·


Ïà¹ØÎĵµ£º

DELPHI¿ª·¢ÖкÃÓõĿì½Ý¼ü(D2007°æ)

DELPHIÓõò»Ì«¶à£¬¼ÓÉÏÄԽºÃʹ£¬¾Í¼ÇÒ»ÏÂ×î³£ÓöԿª·¢Ð§ÂʺÜÓаïÖúµÄ¼¸¸ö£º
Ctrl+Êó±ê×ó¼ü£º²éÕÒ¶¨Òå
Ctrl+Shift+↑£ºÉÏÒ»²Ù×÷ÓëÆäÕýºÃÏà·´£¬Óɶ¨Òå²éÕÒʵÏÖ
Ctrl+Shift+¿Õ¸ñ£ºÔÚÒ»¸öº¯ÊýûÓÐÊäÈë²ÎÊýµÄÀ¨ºÅÄÚ°´Ï´˿ì½Ý¼üʱ»á³öÏÖº¯ÊýÏà¹Ø²ÎÊýµÄÌáʾÐÅÏ¢£¬°üÀ¨ÖØÔصÄËùÓк¯ÊýµÄÐÅÏ¢ ......

DelphiÀàÐÍת»»


Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö· ......

Delphiʱ¼äºÍJavaʱ¼äµÄת»»Àà¡£

ÕâÑùÒ»À´£¬DelphiʹÓÃWebserviceºÍJAVAͨѶʱ£¬¿ÉÒÔ½«DELPHIµÄʱ¼äÖ±½Ó´«¸øJAVA¡£´Ó¶øÃâÈ¥ÁËʱ¼ä×Ö·û´®parseÖ®¼äµÄÏûºÄ£¬Ìá¸ßµÄ³ÌÐòЧÂÊ¡£
Delphiʱ¼äʵÖʾÍÊÇdoubleÀàÐÍ£¬ÕûÊý²¿·Ö±íʾÌ죬СÊý²¿·Ö±íʾµ±Ììʱ¼ä£¬Ã¿ºÁÃëΪ1/86400000¡£¿¼Âǵ½Ê±ÇøµÄת»»ºó£¬JAVAºÍDELPHIʱ¼äÖ®¼äµÄת»»ÀàÈçÏ£º
import java.util.Calendar ......

delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ

delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
×÷Õß:seeker ÈÕÆÚ:2009-04-26
1£º{=====================´ò¿ª=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......

ÔΣ¬delphi 7 ÓÐÁ½¸ö°æ±¾µÄ SelectDirectory

ÒÔǰÓùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬Ô­À´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ