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

¹ØÓÚDELPHI¶àÏß³Ìͬ²½µÄÎÊÌâ - Delphi / ·Ç¼¼ÊõÇø

¸÷λÅóÓÑ´ó¼ÒºÃ£¬±¾È˸տªÊ¼Ñо¿¶àỊ̈߳¬»¹Óкܶ಻Ã÷°×µÄµØ·½£¬Íû´ó¼ÒÖ¸½Ì£¬Ð»Ð»£¡
ÎÊÌâÊÇÕâÑùµÄ£º
¶¨ÒåÁ½¸öỊ̈߳¬µ±°´Å¥Á¬½ÓʱִÐÐÁ¬½Ó´´½¨Ò»¸öÏß³ÌÐò£¬Á¬½Ó³É¹¦ºóÖ´Ðвéѯ°´Å¤ÔÙ´´½¨Ò»¸öỊ̈߳¬ÏÖÔÚÎÊÌâÊDzéѯÏß³Ì
ÖÐÎÞ·¨ÀûÓá¡Á¬½ÓÏ̵߳ÄSocketConnection1£¬ÈçºÎͬ²½ÄØ£¿
²¿·Ö´úÂëÈçÏ£º

¶¨Ò壺
  type
  Tthread1 = class(Tthread)
  protected
  procedure Execute;override;
  procedure getSocketConn;
  end;

  type
  Tthread2 = class(Tthread)
  protected
  procedure Execute;override;
  procedure getClientDataSet;
  end;

procedure Tthread1.Execute;
begin

  Try
  FreeOnTerminate:=true;
  ConToolsFrm.SocketConnection1.ServerGUID:='{2C8E3F43-ABE4-11D4-B352-00E04C67568C}';
  ConToolsFrm.SocketConnection1.ServerName:='apply_tier.Apply_data';
  ConToolsFrm.SocketConnection1.Connected:=False;
  ConToolsFrm.SocketConnection1.Host:= ConToolsFrm.edtHost.Text;
  ConToolsFrm.SocketConnection1.Connected:=True;
  ShowMessage('Á¬½Ó³É¹¦£¡');
  Except
  ShowMessage('Á¬½Óʧ°Ü£¬Çë¶Ï¿ªºóÔÙÊÔ£¡');
  ConToolsFrm.SocketConnection1.Connected:=False;
  end;
end;

procedure Tthread2.Execute;
var
  sqlStr:string;
begin
  ConToolsFrm.ClientDataSet1.Close;
&nb


Ïà¹ØÎÊ´ð£º

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

delphi 數據類ÐÍ

delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:

var
arr:array ['A'..'Z'] of Char;

Óü¯ºÏ¸ã¶¨

Ôõ麼È¥運ËãÄØ£¿inc() ......

¹ØÓÚDelphiÅÅÐòÎÊÌâ

ÎÒÔÚÀûÓÃDelphi±à³Ìʱ£¬ÀûÓÃÁËÒ»¸öС¼¼ÇÉ£¬ÈÃÖ÷¹Ø¼ü×Ö¶ÎÅÅÐò£¬´Ó10000¿ªÊ¼µÄ£¬ºóÃæ²Ù×÷µ½Ìí¼Óɾ³ý¼Ç¼ʱ£¬ÀýÈç¸Õ¿ªÊ¼ÊÇ10000.Ìí¼ÓÒ»¸ö¼Ç¼ºóɾ³ýÕâ¸ö¼Ç¼£¬ÔÙÏÂÒ»´Î¾Í´Ó10002¿ªÊ¼ÁË£¬ÇëÎÊÔõÑù²ÅÄÜʹµÃÏ´ÎÌí¼ÓµÄ¼Ç¼ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ