delphi ×Ô¶¨ÒåÎļþ
±¾ÎÄ×ªÔØ:http://rabbitfox.blog.sohu.com/29948084.html
http://delphi.about.com/od/fileio/a/fileof_delphi.htm
Ê×ÏÈÏò×÷Õß±íʾ¸Ðл£¡
¡¶ÀûÓÃDelphiµÄ“File Of
Type”´´½¨²¢¹ÜÀíÊôÓÚÄã×Ô¼ºµÄ“Êý¾Ý¿â”¡·
Ô×÷ÕߣºZarko Gajic
ÔÎÄ
ÔÚ£ºhttp://delphi.about.com/od/fileio/a/fileof_delphi.htm
Òë ÕߣºLihuaSoft
×öÈËÒªºñµÀ£¬×ªÔØÇë×¢Ã÷³ö´¦
£¨Òë
Õß×¢£º´ËÎIJ¢·ÇÖ±ÒëµÄ£¬¶øÊǾ¡Á¿°´ÕÕÔÎĵĽṹ£¬½áºÏÒëÕߵıà³ÌÌå»á£¬½øÐÐÁ˸ÅÒ룩
ǰÑÔ
¡¡¡¡ÔÚ³ÌÐòÖУ¬ÎÒÃÇÐèÒªÓÃÒ»¸ö;¾¶È¥°ÑһЩÓйæÂɵÄÐÅÏ¢´æ´¢ÔÚ´ÅÅÌÉÏ¡£²»ÄÜÓÃTXT¸ñʽµÄÎļþ©¤©¤ÒòΪËü²»ÊÇ»ùÓÚ“¼Ç¼”µÄ£¬¶øÇÒ¹ÜÀíºÜ²»·½±ã¡£
¡¡
¡¡BDE»òADOÒ²¾ÍÊÇ˵Paradox¡¢Access……°¦£¬²»ÁоÙÁË©¤©¤ÕâЩÎÒ¶¼²»ÏëÓã¬ÓÈÆä²»ÏëÓÃBDE¡£ÎÒÒªÓõÄÊÇASCIIÎı¾Îļþ¡£
DelphiÄÜ×öµ½Â𣿵±È»ÄÜ£¡Õâ¾ÍÊÇ“File Of”ÀàÐÍÎļþ£¬»òÕß˵files of some type/binary files¡£
¡¡
¡¡£¨ÒëÕß×¢£ºÓëËùÓеÄWin32×ÀÃæÓ¦ÓóÌÐò±àÒëÆ÷Ïà±È£¬DelphiÓÐÒ»¸öºÜ¶Àµ½µÄÌØµã£ºËü±àÒëµÄExe¿ÉÒÔ²»ÐèҪһЩ¹«¹²¶¯Ì¬Á´½Ó¿âµÄÖ§³Ö£¬¾¡¹ÜÒò´Ë
DelphiµÄEXEÎļþ¿ÉÄÜ´óÒ»µã¡£¶øVC¡¢C++Builder¡¢VFPµÈµÈÕâЩÎÒÓùýµÄ±àÒëÆ÷£¬È´²»ÊÇÕâÑù£¬ËüÃDZàÒëµÄEXEÍùÍùÐèÒª´ò°üһЩ
Dll²Å¿ÉÒÔÓá£ÄÇô£¬ÎÒÃÇÓÃDelphi¿ª·¢Êý¾Ý¿â³ÌÐòʱ£¬Ê¹ÓÃBDE¡¢ADOµÈµÈÒýÇæ£¬È´Òò´Ë¸øDelphiÃÉÐß©¤©¤BDE¡¢ADOµÈµÈ£¬Ò»°ã¶¼ÐèÒª
µ¥¶À°²×°µ½²Ù×÷ϵͳÖÐÈ¥¡££©
¡¡¡¡ÏÂÃæ¾ÙÀýÑÝʾÕâ¸öÓ¦Óá£
Ê×ÏÈ
¡¡¡¡ÎÒÃÇÊ×ÏÈÒª¶¨ÒåÒ»¸ö»ùÀ࣬Ҳ¾ÍÊÇÒ»¸ö¼Ç¼½á¹¹£º
type
TMember = record
Name : string[10];
eMail :
string[20];
Posts : LongInt;
end;
¡¡¡¡È»ºóÉùÃ÷Ò»¸ö¼Ç¼¼¯£¬¼ÙÉèÓÐ5Ìõ¼Ç¼£º
var Members : array[1..5] of TMember;
¡¡¡¡
ÔÚÎÒÃǶÁдÎÒÃǵÄÊý¾ÝÐÅϢǰ£¬ÎÒÃÇÐèÒªÉùÃ÷Ò»¸ö»ùÓÚÎÒÃǼǼ½á¹¹µÄÎļþ±äÁ¿£º
var F : file of TMember;
¡¡¡¡
×¢£ºÔÚDelphiÀÎÒÃÇÉùÃ÷Ò»¸öÎļþ±äÁ¿µÄÒ»°ã¸ñʽ¾ÍÊÇ£º
var SomeTypedFile : file of SomeType;
¡¡
¡¡ÕâÀïËù˵µÄ»ùÀࣨSome Type£©£¬±ÈÈç¿ÉÒÔÊÇDouble¡¢Êý×é¡¢¼Ç¼¡£µ«²»ÄÜÊdz¤×Ö·û´®¸ñʽ¡¢¶¯Ì¬Êý×é¡¢ÀàÀàÐÍÒÔ¼°Ö¸Õë¡£
¡¡¡¡½ÓÏÂÀ´ÎÒ
ÃÇÒª°ÑÎÒÃǵēÊý¾Ý¿â”ÎļþÁ
Ïà¹ØÎĵµ£º
TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£
³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£
ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º
1¡¢CommaText
2¡¢Delimiter & DelimitedText
3¡¢Names & Values & ValuefromIndex
ÏÈ¿´µÚÒ»¸ö£ºCommaText¡£ÔõôÓÃÄØ£¿ÓôúÂë˵»°£º
const ......
XMLÎļþ
<?xml version="1.0" encoding="utf-8"?>
.......
ÒòΪÔÒòºÜ¶à£¬ËùÒÔÕâ¸ö·½·¨²»Ò»¶¨Äܽâ¾öÎÊÌâ
XMLDocument1.LoadfromFile('test.XML');
XMLDocument1.Active:=TRUE;
XMLDocument1.Encoding:='gb2312';
memo1.Text:=XMLDocument1.XML.Text; ......
Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊǰÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
&n ......
µÚÒ»ÖÖ·½·¨,ʹÓÃSelectDirectory º¯Êý ,ÔÚShellApiÖÐ
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='ÕâÊÇä¯ÀÀÎļþ¼ÐµÄ˵Ã÷ÎÄ×Ö£¬¿ÉÒÔ¸ù¾ÝÐèÒª½ ......
¹Ø¿ª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
&nbs ......