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

delphiÖÐSynchronize

delphiÖÐSynchronizeÕâ¸ö¶«¶«ÓÐʲôÓã¿ÎÒÖªµÀÊÇÏß³Ìͬ²½Ê¹ÓõÄ
ÊÇ·ñÊÇÒ»¸öº¯Êý»ò±äÁ¿£¬µ±Ò»¸öÏß³ÌÔÚʹÓÃʱ£¬Èç¹ûÕâ¸öº¯ÊýʹÓÃÁËSynchronizeÐÞîߵϰ¾Í²»ÔÊÐí±ðÒ»¸öÏß³ÌÀ´µ÷ÓÃÕâ¸öº¯Êý
1Â¥£º±ðµÄÏ̻߳áµÈ´ý¸Ã²Ù×÷Íê³Éºó²ÅÄܼÌÐø
2Â¥£ºÄã˵µÄ»ù±¾ÊÇÕâ¸öÒâ˼¡£ËüµÄÄ¿µÄÊDZÜÃâ¶à¸ö×ÓÏß³Ìͬʱ·ÃÎÊÖ÷Ïß³Ì×ÊÔ´¡£
ʾÀý£º
procedure ServerThread.ListItemEnd; //×ÓÏ̵߳ÄÒ»¸ö·½·¨
begin
if (ListItem <> nil) then
ListItem.SubItems.Strings[3] := '´«ËÍÍê±Ï'; //ListItemÊÇÖ÷Ï̵߳ÄÒ»¸öTreeViewµÄÒ»ÐÐ
end;
procedure ServerThread.ClientExecute; //×ÓÏß³ÌÖ´ÐÐ
begin
Synchronize(ListItemEnd);
//Èç¹ûÖ±½ÓдListItemEnd£¬¿ÉÄÜ·¢Éú³åÍ»¡£
end;
—————————————————————————————————
MaximStr := '³èÈè²»¾ª£¬¿´Í¥Ç°»¨¿ª»¨Â䣬ȥÁôÎÞÒ⣻
»ÙÓþÓÉÈË£¬ÍûÌìÉÏÔÆ¾íÔÆÊæ£¬¾ÛÉ¢Èη硣';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '¼ÙÈçÉÏÊö´úÂëÖгöÏÖ“OA”µÈ×ÖÑù£¬É¾³ýËüÃÇ';
I.Desire := '¼Ó²»¼Ó·ÖËæÄã';
—————————————————————————————————
¡¡¡¡¡¡¡¡¡¡
3Â¥£ºµ±´´½¨Á˶à¸öỊ̈߳¬²¢ÇÒ¶à¸öÏ̶߳¼Òª·ÃÎÊͬһ×ÊÔ´£¬£¬¾ÍÓпÉÄܳöÏÖ»ìÂÒ£¬ÓÚÊÇÓÃSynchronizeÀ´¿ØÖÆ£¬Ê¹Í¬Ò»Ê±¼äÖ»ÓÐÒ»¸öÏß³ÌʹÓÃÄDz¿·Ö×ÊÔ´£¬Synchronize²ÎÊýÀïÃæµÄ´úÂë¾ÍÊǶàÏß³ÌÐèÒª¹«¹²µÄ´úÂ룡
4Â¥£º1¡£synchronize·½·¨µÄ²úÉúÓëvclµÄ¾ÖÏÞÐÔÓйØ,ÒòΪvcl¿Ø¼þÔÚͬһʱ¿ÌÖ»Äܱ»µ¥Ï̷߳ÃÎÊ£¬Èç¹û¶à¸öÏß³Ìͬʱ·ÃÎÊvcl,vcl»á³öÏÖÎÊÌâ¡£ËùÒÔÎÊÁ˰²È«µØ·ÃÎÊvcl,TthreadÀàÌṩÁËÒ»¸ö·½·¨½Ðsynchronize£¬Ëû¿ÉÒÔÈÃÏß³ÌÖеķ½·¨ÔÚÖ÷Ïß³ÌÖÐÖ´ÐУ¬ËùÒÔÎÒÃÇ¿ÉÒÔ°Ñ·ÃÎÊvclµÄ´úÂë¶¼·ÅÔÚÕâ¸ö·½·¨ÖУ¬È»ºóÓÉÖ÷Ïß³ÌÖ´ÐУ¬´Ó¶øÈ·±£vclÄܱ»°²È«µØ·ÃÎʵ÷ÓÃ.ËüµÄÀàÐÍÊÇTThreadMethod=procedure of object;procedure ²ÎÊý:Sychronize(Method:TThreadMethod);
2¡£µ±´´½¨Ò»¸öÏß³Ìʱ£¬vcl»áÔ


Ïà¹ØÎĵµ£º

CSDN ѰÕÒ×îºóÒ»¸öDelphiϬÀû¸ç

°Ù¶ÈÖªµÀÕæÀ¬»ø£¬ÄÇô´óµÄÒ»¸öÆóÒµ£¬¾Í¸øÄÇôµã¿Õ¼ä£¬Ìá¸öÎÊ1500×ÖÏÞÖÆÁË¡£ÏëÏëÀ´csdn£¬¹ÒÁËÒ»¸öÐÇÆÚ¶¼Ã»ÈËÀí£¬²»ÖªµÀÊÇÎÒ·ÖÌ«ÉÙ£¬»¹ÊÇÕæµÄ¸ßÊÖ¶¼²»À´ÕâÀ£¿£¿ÆÚ´ýÒ»¸öÓ¢Ð۵ĵ½À´£¬²ËÄñÎÒÔÚÕâÀï°ÝлÁË£¡£¡ÆäʵÕâ¸ù±¾²»ÊÇÉúÃüÄÑÌ⣬ÎҲŸոÕѧ£¬Îʲ»³öÉúÃü¸ßÉîµÄÌâÄ¿À´£º
rT;
delphi7 ,DB:oracle
ÎÊÌâÔËÐй¤³ÌÎļþexe²» ......

Delphi²Ù×÷×¢²á±íµÄÒ»°ã²½Öè

Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......

Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨


 
Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨
ҪʵÏÖĿ¼¼¶µÄ¿½±´£¬¿ÉÒÔÀûÓÃWindows APIº¯ÊýShFileOperation( )£¬Æäº¯ÊýÉùÃ÷ÈçÏ£º
WINSHELLAPI int WINAPI SHFileOperation(
    LPSHFILEOPSTRUCT lpFileOp
);
ʵÀý£º
н¨Ò»¸ö¹¤³Ì£¬Æä³ÌÐòʾÀýÈçÏ£º
unit Unit1;
interface
uses
Windows, Messag ......

ÔÚdelphiÖÐÅжÏ×Ö·û´®ÊÇ·ñÊý×Ö£¬ÒÔ¼°¾«¶È´¦Àíº¯Êý

// ÅжÏÊÇ·ñÊÇÊýÖµÐÍ   By yangxiao  2007.7.21
function isNumeric(strText: WideString): Boolean;
var
  s: string;
  i, l, p: Integer;
begin
  Result := False;
  l := Length(strText);
  if l = 0 then Exit;
  s := '';
  for i:=1 to l do
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ