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 ......
1£¬¹æ·¶¼ò½é
¡¡¡¡±¾¹æ·¶Ö÷Òª¹æ¶¨DelphiÔ´³ÌÐòÔÚÊéд¹ý³ÌÖÐËùÓ¦×ñѵĹæÔò¼°×¢ÒâÊÂÏî¡£±àд¸Ã¹æ·¶µÄÄ¿µÄÊÇʹ¹«Ë¾Èí¼þ¿ª·¢ÈËÔ±µÄÔ´´úÂëÊéдϰ¹ß±£³ÖÒ»Ö¡£ÕâÑù×ö¿ÉÒÔʹÿһ¸ö×éÔ±¶¼¿ÉÒÔÀí½âÆäËü×éÔ±µÄ´úÂ룬ÒÔ±ãÓÚÔ´´úÂëµÄ¶þ´Î¿ª·¢¼ÇÒäϵͳµÄά»¤¡£
2£¬Ò»°ã¸ñʽ¹æ·¶
2.1 Ëõ½ø
¡¡¡¡Ëõ½ø¾ÍÊÇÔÚµ±Ô´³ÌÐòµÄ¼¶¸Ä±äʱΪÔö¼ ......
Ä¿Ç°¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľÑé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕßÆðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼Æƪ¡£ ......
//¼Óһϰ´Å¥£¬¼ÓÒ»¸ö¶Ô»°¿ò¾ÍOKÀ²
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
----------------------- ......
¹Ø¿ª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøͬÐУ¨ÄîXing£©ÕßÌṩһЩ½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
&nbs ......