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
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......