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
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......