delphi 2010̫ǿÁË£¬Ö§³ÖÖÐÎıäÁ¿
procedure TForm1.Button1Click(Sender: TObject);
var ²âÊÔ:String;
begin
²âÊÔ:='abc';
ShowMessage(²âÊÔ);
end;
¿¿£¬Ì«Ç¿ÁË¡£
ÎÒ²ÅÖªµÀ£¬Ï൱ÂäÎ飬ÊDz»ÊÇ£¿
ÖªµÀ¾Í²»ÂäÎéÁË
¹þ¹þ
ÕâÑù¶¼Ðа¡
ÊÜÂ¥Ö÷Æô·¢£¬ÎÒÊÔÁËһϣ¬´°Ìå¡¢¿Ø¼þÒ²ÄÜÓúº×Ö£¡£º
¹À¼ÆÀàʲôµÄ¶¼¿ÉÒÔ°É£¬ÓÐÒâ˼£¡
Delphi(Pascal) code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T´°Ìå1 = class(TForm)
°´Å¥1: TButton;
procedure °´Å¥1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
´°Ìå1: T´°Ìå1;
implementation
{$R *.dfm}
procedure T´°Ìå1.°´Å¥1Click(Sender: TObject);
begin
ShowMessage('Oh yeah!');
end;
end.
ѧϰÒ×ÓïÑÔÁË?
À÷º¦°¡£¬ÄÇÎÒÓÃÓÿ´
ÕâÑùÒ²Ðеİ¡¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
ÔÚdotnet»òjavaÀïÔç¾ÍÖ§³ÖÁË¡£
ÔÎËÀ£¬²âÊÔÁËÏ£¬¹ûÈ»ÐС£¡£¡£Å£X
²ÅÖªµÀ£¬¿ÉϧûתD10
ÖÁÉÙ´ÓD2007¿ªÊ¼¾ÍÖ§³ÖÖÐÎıäÁ¿ÃûÁË£¬µ«D2007²»Ö§³ÖÖÐÎÄÀàÃû
ʵ¼ÊÉÏÊǶÔUnicode×Ö·û¼¯µÄÖ§³Ö
Delphi(Pascal) code:
procedure TForm1.FormCreate(Se
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......