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 Öн«¶ÔÏó×÷Ϊ²ÎÊý´«µÝµÄʹÓà ¾ÙÀý·ÖÎö
2009-07-24 13:40
ÏÂÃæµÄµ¥»÷ʼþ£¬½«Òªµ÷ÓÃÒ»¸öÒÔ¶ÔÏóΪ²ÎÊýµÄ·½·¨£¬²¢½«½á¹ûÏÔʾ³öÀ´¡£
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
lStrings.Add('chen');
&nbs ......
ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......
¾µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......
²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......
¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
a: Integer;
p: ^Integer;
begin
with self.Memo1.Lines do
begin
......