delphi ÈçºÎ ¶¯Ì¬¶¨Òå±äÁ¿
³ÌÐòÖÐÏë¸ù¾Ý²»Í¬ÎļþÃû£¬¶¯Ì¬Éú³É±äÁ¿Ãû³Æ£¬È»ºó£¬ÔÙ¸øÕâ¸ö±äÁ¿¸³Öµ¡£
ÏëÖªµÀDELPHIÖÐÄܹ»ÔõôʵÏÖ¡£
ÎʹýÅóÓÑ˵²»ÊǽâÊÍÐÍÓïÑÔ£¬ÎÒ¾õµÃÓ¦¸Ã¿ÉÒÔÓнâ¾öÎÊÌâµÄ;¾¶¡£
²»ÖªµÀÄãÏë¸Éʲô£¬ÊÔÊÔÓö¯Ì¬Êý×é°É¡£
ÕâÖÖÎÊÌâ¾ÍÊÇÒòΪÄÔ×ÓÀïÒ»íÈôݺý£¬¸ÅÄîÊÇʲô¶¼¸ãûÇå¾Í¿ªÊ¼Ï¹ÓÃ
¹À¼ÆÖ»ÓÐһЩscriptÈç remobjectµÄpascalscript»òfast script¿ÉÄÜÄÜʵÏÖÄãµÄÒªÇó
·ÇÒªÔÚÔËÐÐʱ¶¨Òå±äÁ¿Ãû³ÆÂð£¿Èç¹û²»ÐèÒªµÄ»°¿ÉÒÔÓÃÁ´±í»òÊý×é
type
PMyFile = ^TMyFile;
TMyFile = record
Name: string;
....
end;
AMyFile := TMyFile.create;
AMyFile.Name := 'Ãû×Ö';
¿ÉÒÔÓÃÁбí¹ÜÀíÆðÀ´
µÈµÈ£¬Äã¿ÉÒÔʵÏֵĸüºÃ
type
MyRecord=record
FileName:TFileName;
±äÁ¿:String;//?Integer?Variant?
end;
MyRecordArray=array of MyRecord;
.....
var FTest:MyRecordArray;
begin
while ....
begin
SetLength(FText,Length(FText)+1);
FText[Length(FText)-1].FileName:=xxxxx;
FText[Length(FText)-1].±äÁ¿:=OOOOO;
end;
ºÃʹ²»£¿
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......