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¤×Ö·û´®¸ñʽ¡¢¶¯Ì¬Êý×é¡¢ÀàÀàÐÍÒÔ¼°Ö¸Õë¡£
¡¡¡¡½ÓÏÂÀ´ÎÒ
ÃÇÒª°ÑÎÒÃǵēÊý¾Ý¿â”ÎļþÁ
Ïà¹ØÎĵµ£º
XMLÎļþ
<?xml version="1.0" encoding="utf-8"?>
.......
ÒòΪÔÒòºÜ¶à£¬ËùÒÔÕâ¸ö·½·¨²»Ò»¶¨Äܽâ¾öÎÊÌâ
XMLDocument1.LoadfromFile('test.XML');
XMLDocument1.Active:=TRUE;
XMLDocument1.Encoding:='gb2312';
memo1.Text:=XMLDocument1.XML.Text; ......
1.SHIFT+Êó±ê×ó¼ü ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
2.Shift+F8 µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
3.Shift+F10 µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......
µÚÒ»ÖÖ·½·¨,ʹÓÃSelectDirectory º¯Êý ,ÔÚShellApiÖÐ
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='ÕâÊÇä¯ÀÀÎļþ¼ÐµÄ˵Ã÷ÎÄ×Ö£¬¿ÉÒÔ¸ù¾ÝÐèÒª½ ......
Ò»¡¢Dll½¨Á¢
£¨Ò»£©DLLÏîÄ¿µÄ½¨Á¢
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
£¨¶þ£©º¯Êýµ¥Ôª
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
  ......