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

Delphi bookmarkʹÓÃ

¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»    
  ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈÇ°Ö¸ÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌرðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º  
  ¡ñ   GetBookMark  
  ¡ñ   GotoBookMark 
  ¡ñ   FreeBokMark  
ÕâÈý¸ö·½·¨Ò»°ã¶¼ÊÇÔÚÒ»ÆðʹÓã¬GetBookMark·½·¨·µ»ØÒ»¸öTBookMarkÀàÐ͵ıäÁ¿£¬¸Ã±äÁ¿°üº¬×ÅÖ¸Ïòµ±Ç°¼Ç¼µÄÖ¸Õ룬GotoMark·½·¨ÓÃÓÚ¿ìËٵؽ«¼Ç¼ָÕ붨λµ½¾ßÓÐÊéÇ©µÄ¼Ç¼´¦¡£FreeBookmark·½·¨ÊÇÓëGetBookMark·½·¨Ïà·´µÄ²Ù×÷£¬ËüÊÍ·ÅÊéÇ©±êÖ¾¡£ÏÂÃæµÄ³ÌÐò´úÂë²ûÊöÁËÊéÇ©²Ù×÷µÄÒ»°ã·½·¨£º
  BookMark   :   TBookMark;     
   
  BookMark   :=   Table1.GetBookMark;   {¶Ôµ±Ç°¼Ç¼×÷ÊéÇ©±êÖ¾}  
  Table1.DisableControls;   {ÇжÏTable1ÓëÊý¾Ý²ì¾õ²¿¼þµÄÁªÏµ...ÏÂÃæÓÐÆäʹÓýâ˵}   
  Table.First    
  While   Not   EOF   Do   {¶Ô±íÖÐÈ«²¿¼Ç¼½øÐÐÆäËû´¦Àí}    
  begin 
  Tabel1.Next;    
  end;  
   
  Tabel1.GotoBookMark(BookMark)    
  Table1.EnableControls;   {ÖØж¨Î»¼Ç¼ָÕë»Øµ½Ô­À´µÄλÖÃ}  
  Tabel1.FreeBookMark(BookMark);   {ɾ³ýÊéÇ©BookMark±êÖ¾}¡¡
-- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - -
DisableControls·½·¨ÊÇÔÚ³ÌÐòÐ޸Ļòºǫ́ÓÐˢмǼµÄʱºòÇжÏÊý¾Ý×é¼þ£¬ÈçTTABLE¡¢ADOQUERYµÈµÈÓë×é¼þÊý¾ÝÔ´µÄÁªÏµ¡£Èç¹ûûÓÐÇжϣ¬Êý¾ÝÔ´ÖÐÖ»ÒªÒ»ÓÐÊý¾ÝµÄ¸Ä¶¯£¬ÓÈÆäÊÇÅúÁ¿¸Ä¶¯µÄ»°£¬Ã¿Ò»±ÊµÄ¸Ä¶¯¶¼»á¸üд°¿ÚÖÐÊý¾Ýä¯ÀÀ×é¼þµÄÏÔʾ£¬ÕâÑù»á¼±¾ç¼õÂý´¦Àí¹ý³Ì¶øÇÒÀË·Ñʱ¼ä¡£EnableControlsµÄ×÷ÓÃÏà·´£¬ÓÃÀ´»Ö¸´TTABLEµÈ×é¼þÓ


Ïà¹ØÎĵµ£º

»ùÓÚDelphiµÄSocket I/OÄ£ÐÍÈ«½Ó´¥(×ܽá) [ת]

ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ­³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......

Delphi 쵀RTTI

Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹Øϵ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹Øϵ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔ­Àí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½ ......

DelphiÖÐʵÏÖ¼ÓÔØINFÇý¶¯³ÌÐò£¡


°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
function InstallInf(const PathName: string; hParent: HWND): Boolean;
var
  instance: HINST;
begin
  instance := ShellExecute(hParent,
      PChar('open ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ