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);
//½â³ýÎÄ
Ïà¹ØÎĵµ£º
[code=Delphi(Pascal)]
unit uThreadPool;
{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }
interface
uses
Windows,
Classes;
// ÊÇ·ñ¼Ç¼ÈÕÖ¾
// {$DEFINE NOLOGS}
type
TCriticalSection = class(TObject)
protected
FSec ......
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËƺõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö ......
DelphiµÄ·½·¨ÀàÐÍÓУº
1.¾²Ì¬·½·¨ (Static) ĬÈÏÀàÐÍ£¬¿ÉÒÔÊ¡ÂԹؼü×Ö
2.ÐéÄâ·½·¨ (Virtual)
3.¶¯Ì¬·½·¨ (Dynamic)
4.ÏûÏ¢·½·¨ (Message)
5.³éÏó·¨·½ (Abstract)
=======================================================
1£©¾²Ì¬·½·¨[static]
¾²Ì¬·½·¨ÀàËÆÓÚͨ³£µÄ¹ý³ÌºÍº¯Êý£¬±àÒëÆ÷ÔÚ±àÒëʱ¾ÍÒÑÖ¸¶¨ÁËÊä³ö¸Ã·½· ......
DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿
2008-12-20 02:03:24
¡¡±êÇ©£ºDelphi Socket ±à³Ì¡¡¡¡¡¡[ÍÆË͵½¼¼ÊõȦ]
ClientSocket ºÍServerSocket
¼¸¸öÖØÒªµÄÊôÐÔ:
1.clientºÍserver¶¼ÓÐportÊôÐÔ£¬ÐèÒªÒ»Ö²ÅÄÜ»¥ÏàͨÐÅ
2.clientÓÐAddressÊôÐÔ,ʹÓÃʱÌîд¶Ô·½(server)µÄIPµØÖ· & ......
Day ¿ªÍ·µÄº¯Êý
¡ñ
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
ÃèÊö
ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö
Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£
ÀýÈ磺
showmessage(DateTimetostr(dateof(now())));
ÄãµÃµ½µÄÊÇ 2003/03/19
¶ø showmessage(Dat ......