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

Delphi µÄRTTI»úÖÆÇ³Ì½(Ðø)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2421470
±¾ÎÄÊÇ¡¶Delphi µÄRTTI»úÖÆÇ³Ì½¡·µÄÐøÆª£¬ÉÏÆªµØÖ·ÔÚ£º
  http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
±¾ÎÄÉÏÆª»ù±¾ÉÏÊÇ
RTTI ÈëÃŽéÉÜ£¬ÐøÆª½éÉÜÁËËùÓÐ TypInfo.pas Öеĺ¯Êý£¬¸½¼ÓÁË Classes.pas¡¢Graphics.pas¡¢Controls.pas
Öеö RTTI Ïà¹Øº¯Êý¡£¶ÔÓڹؼüº¯ÊýµÄ´úÂëÌṩ»ã±à×¢ÊÍ¡£Ï£Íû±¾Îĸ²¸ÇÁË Delphi ÖÐ 80% µÄ RTTI
º¯Êý¡£Ê±¼ä²Ö´Ù£¬´íÎóÄÑÃ⣬¾´ÇëÅúÆÀÖ¸Õý¡£
±¾ÎÄÅŰæ¸ñʽΪ£º
    ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80
×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾­×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½Ìå×ªÔØ¡£)
Ä¿
¼
===============================================================================
¡Ñ
GetTypeData º¯Êý
¡Ñ GetPropInfo º¯Êý
¡Ñ FindPropInfo º¯Êý
¡Ñ GetPropInfos
º¯Êý
¡Ñ SortPropList º¯Êý
¡Ñ GetPropList
º¯Êý
------------------------------------------------------
¡Ñ
GetObjectPropClass º¯Êý
¡Ñ PropType / PropIsType º¯Êý
¡Ñ IsPublishedProp º¯Êý
¡Ñ
IsStoredProp º¯Êý
¡Ñ FreeAndNilProperties º¯Êý
¡Ñ SetToString / StringToSet
º¯Êý
¡Ñ GetEnumName / GetEnumValue / GetEnumNameValue
º¯Êý
------------------------------------------------------
¡Ñ GetOrdProp
º¯ÊýÏê½â
¡Ñ SetOrdProp º¯Êý
¡Ñ GetEnumProp / SetEnumProp º¯Êý
¡Ñ GetSetProp /
SetSetProp º¯Êý
¡Ñ GetObjectProp / SetObjectProp º¯Êý
¡Ñ GetStrProp / SetStrProp
º¯Êý
¡Ñ GetFloatProp / SetFloatProp º¯Êý
¡Ñ GetPropValue / SetPropValue º¯Êý
¡Ñ
TPublishableVariantType
class
------------------------------------------------------
¡Ñ
RegisterClass / FindClass ϵÁк¯Êý (Classes.pas)
¡Ñ IdentToInt / IntToIdent ϵÁк¯Êý
(Classes.pas)
===============================================================================
Õý
ÎÄ
===============================================================================
¡Ñ
GetTypeData
º¯Êý
===============================================================================
GetTypeData
º¯Êý¸ù¾Ý TTypeInfo Ö¸Õë»ñµÃ TTypeData µÄµØÖ·¡£
function GetTypeD


Ïà¹ØÎĵµ£º

Format¸ñʽ Delphi

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

˭˵DelphiûÓйþÏ£

˭˵DelphiûÓйþÏ££¿£­£­DelphiÖУ¬TStringListºÍTHashedStringListµÄÐÔÄܶԱÈ
Ôø¾­¿´µ½ºÜ¶àÈËÔÚÈÂÈÂDelphiûÓйþÏ£±í£¬ÕâЩÈ˵͝ÊÖÒâʶ¹ÃÇÒ²»ÂÛ£¬È´»¹ÓкܶàÈËÒÔ´ËÀ´Ö¤Ã÷Delphi±È±ðµÄÓïÑÔÀ¬»ø£¬ÊµÔÚÊÇ...
ºÃ£¬ÀÎɧ´òס£¬×ª½ÓÕýÌâ¡£
TStringListÊÇÎÒÃdz£ÓõÄ×Ö·û´®ÁбíÀàÐÍ£¬Ó÷¨¾Í²»ÔÚÕâÀï׸Êö£¬µ«ÊÇ£¬ÔÚÊý¾ÝÆäÏîÊýÔö ......

Delphi~~

   ×î½üÒª×öÒ»¸öͼÊé¹ÜÀíϵͳ£¬²¢ÇÒÊÇÓÃDelphiÈí¼þ¿ª·¢£¬ºÜ¶à¶¼²»¶®£¬±¾À´ÊÇ¿ÉÒÔ´ÓÍøÉÏÏÂÔØ£¬Ñ§Ï°Ò»Ïµģ¬¿ÉÊDz»ÖªµÀÔõÃ´ÆÆ½âµÇ½ÃÜÂ룬ÔËÐÐʱû°ì·¨µÇ½½øÈ¥£¬5555~~ºÃºÃѧϰ£¬ÓиßÊÖÖ¸µã¾ÍºÃÁË…… ......

DelphiÎļþ²Ù×÷

 unit unitFileOP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function GetSys32Dir:String;
var
Sys32Dir: string;
pSys32Dir: array[0..Max_Path] of char;
begin
GetSystemDirectory(pSys32Dir,Max_Pat ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ