Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 + Asm TBitsÀàµÄѧϰ

¼¼Êõ½»Á÷,DH½²½â. ÔÚD2010µÄclassesÖÐÓиöTBitsÀà,Õâ¸öÀàÖ÷ÒªÊÇλ²Ù×÷µÄ. TBits = class
private
FSize: Integer;
FBits: Pointer;
procedure Error;
procedure SetSize(Value: Integer);
procedure SetBit(Index: Integer; Value: Boolean);
function GetBit(Index: Integer): Boole ......

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

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

DELPHI³£Óÿì½Ý¼ü(ת)

£®pas ---- pascalµÄËõд, µ¥ÔªÔ­Ê¼³Ìʽµµ£¨ unit source files £©
£®dpr ---- ר°¸µµ ( project files )
£®dpk ---- °ü¹üԭʼ³Ìʽµµ/×é¼þ°ü ( package source files )
£®dfm ---- ±íµ¥µµ (¼Ç¼formµÄÄÚÈÝ,³ýÈ¥Õâ¸öÄÚÈݾ͵ÈÓÚɾ³ýÁËformÕâ¸ö±íµ¥)
£®dcu ---- ÊDZàÒëºÃµÄµ¥ÔªÎļþ.ÈôÖ»ÓÐÒ»¸ödcuÎļþ,Ôò²»ÄÜ¿´µ½Ô´´úÂë. ......

DelphiÖÐʵÏÖÈ«½Çת°ë½Ç

DelphiÖÐʵÏÖÈ«½Çת°ë½Ç
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 ÔÚwindowsÖУ¬ÖÐÎĺÍÈ«½Ç×Ö·û¶¼Õ¼Á½¸ö×Ö½Ú£¬
 ²¢ÇÒʹÓÃÁËascii¡¡chart  2 
(codes  128 - 255
)¡£
È«½Ç×Ö·ûµÄµÚÒ»¸ö×Ö½Ú×ÜÊÇ ......

coolbarÈÃÄãµÄdelphiÓ¦ÓóÌÐò¸ü¿á

²Ü×æÈ¨
¡¡¡¡¹¤¾ßÌõÊdzÌÐòԱϲ»¶²ÉÓõÄ×é¼þ£¬Ëü¾ßÓмòÃ÷Ö±¹ÛµÄÍâÐΣ¬Äܹ»·½±ãÓû§Ö´ÐÐ×î³£ÓõŦÄÜ¡£Èç¹ûÄãʹÓÃdelphi3±à³Ì£¬ÄÇô±¾ÈËÏòÄãÍÆ¼öcoolbar×é¼þ¡£ËüÊÇÒ»ÖÖ¹¦ÄܸüΪ·á¸»µÄ¹¤¾ßÌõ£¬ÓÃËü¿ÉÒÔʹ¶à¸ö´«Í³µÄ¹¤¾ßÌõ¡¢±à¼­¿ò¡¢×éºÏÁбí¿ò¡¢Í¼ÏñÉõÖÁ¸ü¶àµÄ×é¼þ¼¯³Éµ½Ò»¸öͳһµÄcoolbarÖУ¬Ê¹µÃÓ¦ÓóÌÐò´°¿Ú¸üΪ½ô´Õ¡¢½çÃæ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ