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

delphiÖÐÔõô¶¨Ò幫¹²±äÁ¿£¿

ÎÒÒÔǰÊÇ×öVB6µÄ£¬ÏÖÔÚ¸ÄѧDELPHI¡£¹ýÈ¥¿ÉÒÔÓÃpublic ±äÁ¿Ãû¶¨ÒåÒ»¸ö¹«¹²±äÁ¿£¬ÔÚDELPHIÖÐÔõôʵÏÖÕâÒ»¹¦ÄÜ£¿

ÐÂÊÖ£¬¸Ð¾õ±È½Ï±¿£¬ÇëÖ¸½Ì£¡
½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£

Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£

ÒýÓÃ
½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£

Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£


»¹ÓУº
var
  frmCheckPEPB: TfrmCheckPEPB;
  Param1:Integer;//È«¾Ö£¬ÆäËûuse±¾unitµÄµØ·½Ò²¿ÉÒÔÓÃ

implementation

var Param2:Integer;//È«¾Ö£¬½ö±¾unitÈ«¾Ö¡£

VarÇø¿éÀﶨÒåµÄ¾ÍÊÇÈ«¾Ö±äÁ¿

ÔÚ½Ó¿Ú²¿·ÖÏÂµÄÆäËûµ¥ÔªÒýÓúó¿É¼û Ö´ÐÐÇø¿éµÄ½ö±¾µ¥Ôª¿É¼û

Ò²¿ÉÒÔÔÚpublic»òÕßprivateÖж¨Ò壬¶¨ÒåÔÚpublicµÄ»°ËùÓеĵ¥Ôª¶¼¿ÉÒÔ·ÃÎÊ£¬privateµÄ»°Ö»Óб¾µ¥Ôª¿ÉÒÔ·ÃÎÊ

ÄÜ˵µÃ¾ßÌåÒ»µãÂð£¿ÎÒÊÇÐÂÊÖ£¬²»ÖªµÀÔõôÓá£

!

Delphi(Pascal) code:

unit U_Main;


interface

uses
SysUtils, Controls, Forms, Classes, Windows, DB, StdCtrls, ExtCtrls,
Messages, ImgList, ToolWin, ComCtrls, Dialogs, ExtDlgs;

type
TF_Main = class(TForm)
btnTest: TButton;
btnClose: TButton;
edtCount: TEdit;

procedure btnCloseClick(Sender: TObject);
private

public
procedure AddMsg(sMsg: string);
procedure PrintArray(data:


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

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

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

delphiÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ