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

DelphiÎļþ²Ù×÷³£Óú¯Êý

====================================================
Delphi²Ù×÷ÎļþµÄÒ»°ã²½Ö裺
1£©¹ØÁªÎļþ£º
 AssignFile(var F; FileName :string)£»
2£©³õʼ»¯Îļþ£º
 Append(var F :Text);   
 //ֻд£¬ÓÚÎļþ×îºó×·¼ÓÊý¾Ý
 Reset(var F [; RecSize :Word]);      
 //Ö»¶Á£¬Îļþ±ØÐë´æÔÚ£¬ÎļþÖ¸ÕëÖÃÓÚ¿ªÍ·
 //µÚ¶þ²ÎÊýÖ¸¶¨Ö¸ÕëÒÆ¶¯µÄ´óС£¬¶ÔÓÚÎÞÀàÐÍÎļþÓÐЧ
 //¶ÔÓÚÀàÐÍÎļþ£¬Ôò°´¾ßÌåÀàÐ͵ĴóС£¬¶øÎı¾ÎļþĬÈÏ128×Ö½Ú
 Rewrite(var F :File [; Recsize :Word]);
 //¸²¸Çֻд£¬ÈôÎļþÒÑ´æÔÚ£¬Ôòɾ֮֨½¨¿ÕÎļþд
3£©¶ÁдÎļþ£º
 Eof(var F):Boolean; //End of File? ÎļþÖ¸ÕëÊÇ·ñ´¦ÓÚÎļþ½áβ
 Eoln[(var F :Text)]:Boolean; //End of line?
 Seek(var F; N :Longint); //¶ÔÓÚÎı¾ÎļþÎÞЧ
 //ÒÆ¶¯ÎļþÖ¸ÕëN¸öµ¥Î»£¬NΪÕýÔòÏòÇ°ÒÆ£¬NΪ¸ºÔòÏòºóÒÆ
 SeekEof[(var F :Text)]:Boolean;
 //ͬEof£¬Çø±ðÔÚÓÚ±¾º¯ÊýºöÂÔ¿Õ°×·û
 
 SeekEoln[(var F :Text)]:Boolean;
 //ͬEoln£¬Çø±ðÔÚÓÚ±¾º¯ÊýºöÂÔ¿Õ°×·û
 FilePos(var F):Longint; //Îļþ±ØÐë´ò¿ª
 //»ñÈ¡ÎļþÖ¸Õ뵱ǰλÖã¬ÈôÔÚÎļþ¿ªÍ·Ôò·µ»Ø0
 FileSize(var F):Integer; //Îļþ±ØÐë´ò¿ª
 //»ñÈ¡Îļþ´óС£¬·µ»ØµÄ´óС²¢·Ç¸ù¾Ý×Ö½Ú¼ÆË㣬¶øÊǸù¾Ý´«µÝÊý¾Ýʱ¼Ç¼µÄ´óС¼ÆËã¡£¹ÊÓ¦ÏÈÉùÃ÷Ò»¸öÎÞÀàÐÍÎļþ²¢³õʼ»¯ÎªReset(F,1);ʹ¼Ç¼´óСΪ1×Ö½Ú£¬»òÕßÉùÃ÷charÀàÐÍ£¨1×Ö½Ú£©Îļþ£¬¼´£ºFile of char±äÁ¿
 Read(F, v1 [, v2, v3...vn]);
 //¶Áȡһ¸öÊý¾Ý´æ´¢ÓÚ²ÎÊýv1ÖУ¬ÈôÒ»´Î¶ÁÈ¡¶à¸öÊý¾Ý£¬Ôò¿É´ø¶à¸ö²ÎÊý¡£ÈôÉùÃ÷µÄÊÇÀàÐÍÎļþ£¬Ôò²ÎÊýµÄÀàÐͺÍÀàÐÍÎļþµÄÀàÐÍÒ»Ö£»ÈôÉùÃ÷µÄÊÇÎı¾Îļþ£¬Ôò²ÎÊý»ù±¾ÉÏ¿ÉÒÔÊÇÈκλù±¾Êý¾ÝÀàÐÍ¡£µ±¶ÁÈë¶à¸öÊýֵʱ£¬Read·½·¨½«¼Ù¶¨ÊýÖµÊÇÓÃÒ»¸ö»ò¶à¸ö¿Õ¸ñ¡¢ÖƱí·û£¨#9£©»ò»Ø³µ£¨#13#10£©¸ô¿ªµÄ£¬¶ø²»ÊǶººÅ¡¢·ÖºÅ»òÆäËü×Ö·û¡£
 Readln([var F :Text;] v1 [, v2, ...,vn]);
 //¶ÁȡһÐÐÊý¾Ý£¬Ö»ÊÊÓÃÓÚÎı¾Îļþ
 Write(F, v1 [, v2,...,vn]); //ÍùÎļþÖÐÌí¼ÓÄÚÈÝ
 Writeln([var F :Text;] p1 [, p2,...,pn]);
 //дһÐÐÊý¾Ý£¬Ö»ÊÊÓÃÓÚÎı¾Îļþ
4£©¹Ø±ÕÎļþ£º
 CloseFile(var F); 
 //½â³ýÎÄ


Ïà¹ØÎĵµ£º

delphi µ÷ÓÃC# webservice

×ªÔØ×Ô£ºhttp://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice¼¼ÊõµÄ³öÏÖ½«¸÷ÖÖ¿ª·¢¼¼ÊõºÍÓïÑÔÍêÈ«µÄÈÚºÏÁË£¬ÏÂÃæ¾ÍÕâÖÖÈÚºÏÔÚC#ºÍdelphiÖ®¼äµÄ½»»¥×öÒ»´ÎÈ«ÃæµÄÌåÏÖ
1.ʹÓÃC#´´½¨Ò»¸öWebservice·þÎñ¡£
ʹÓÃvs2005µÄÄ£°å´´½¨C#µÄwebservice·Ç³£ÈÝÒס£Ô­ÎļþÈçÏÂ:
[WebService(Namespace  ......

delphi virtual dynamic

dynamic¾ÍÊÇËüÊǶ¯Ì¬·½·¨£¬Ã»Óо²Ì¬µØÖ·£¬ËùÒÔËÙ¶ÈÂýÒ»µã
virtualÊÇÐé·½·¨£¬Èç¹ûÔÚ»ùÀàÖв»ÉùÃ÷³ÉÐé·½·¨µÄ»°£¬¼Ì³Ðºó£¬¸Ã·½·¨»áÌáʾһ¾¯¸æÐÅÏ¢£¬°Ñ»ùÀàÖз½·¨ÆÁ±ÎµôÁË
---------------------------------------------------------------
¶¯Ì¬£¨Dynamic£©ºÍÐéÄ⣨Virtual£©ºó¶¼¿ÉÒÔʹÓÃOverride¹Ø¼ü×ÖÔÚÅÉÉúÀàÖжԶÔÓ¦ ......

delphiµ÷ÓÃÑ¡ÔñĿ¼¶Ô»°¿ò

delphiµ÷ÓÃÑ¡ÔñĿ¼¶Ô»°¿ò
¾­³£¼ûÍøÉÏÓÐÈËÎÊÑ¡ÔñĿ¼¶Ô»°¿òµÄ¿Ø¼þ£¬ÆäʵֻÓÃÒ»¸öº¯Êý¾Í¿ÉÒÔʵÏÖ¡£
×¢ÒâÒýÓÃ Filectrl µ¥Ôª
use Filectrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end; ......

Delphi formatµÄÓ÷¨

Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·­Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ