Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Öн«¶ÔÏó×÷Ϊ²ÎÊý´«µÝµÄʹÓÃ

Delphi Öн«¶ÔÏó×÷Ϊ²ÎÊý´«µÝµÄʹÓà ¾ÙÀý·ÖÎö
2009-07-24 13:40
 
ÏÂÃæµÄµ¥»÷ʼþ£¬½«Òªµ÷ÓÃÒ»¸öÒÔ¶ÔÏóΪ²ÎÊýµÄ·½·¨£¬²¢½«½á¹ûÏÔʾ³öÀ´¡£
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
    lStrings.Add('chen');
&nbs ......

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

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

Delphi + DBµÄ²éѯÓÅ»¯Éè¼Æ˼Ïë

¾­µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......

DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)

¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
    a: Integer;
    p: ^Integer;
begin
    with self.Memo1.Lines do
    begin
        ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ