delphiÖйú¼Ê»¯µÄ¼¸ÖÖ·½°¸¼°±È½Ï(ת)
delphiÖйú¼Ê»¯µÄ¼¸ÖÖ·½°¸¼°±È½Ï(ת)
Ëæ×ÅÈ«Çò»¯³Ì¶È¼ÓÉÈí¼þÔ½À´Ô½ÏñÆÑ¹«Ó¢£¬µ½´¦Æ®É¢¡¢Ôú¸ù¡£ÕâÆäÖÐÒª½â¾öµÄÊDz»Í¬ÓïÑÔµÄÏÔʾÎÊÌâ¡£ÎÒÃǵ±È»Ï£ÍûÒ»Ì׳ÌÐò£¬¿ÉÒÔ²»Ð޸ĴúÂë¾Í¿ÉÒÔÖ§³Ö²»Í¬µÄÓïÑÔ£¬²»ÒªÈ¥Î¬»¤ºÜ¶àµÄ°æ±¾¡£
Ê×ÏÈҪ̸µ½µÄÒ»¸öÎÊÌâÊÇÂÒÂëÎÊÌ⣬ÒòΪdelphi
win32µ½11.x°æ»¹ÊDz»Ö§³Öunicode£¬ËùÒÔÒ»°ãʹÓÃAnsiÂ룬ÓÐÕâÑù¼¸ÖÖÇé¿ö»áÏÔʾÂÒÂ룺
ʹÓõÄÓïÑÔÎÄ×ÖÓëϵͳµ±Ç°É趨µÄÓïÑÔ²»Ò»Ñù£»±ÈÈç¼òÌå°æQQÔÚ·±Ìå²Ù×÷ϵͳ£¨»ò¼òÌå²Ù×÷ϵͳµÄÇøÓòÉèÖÃÖС°·ÇUnicode³ÌÐòµÄÓïÑÔ¡±É趨Ϊ·±Ì壩¾ÍÊÇÂÒÂë¡£¼´Ê¹¸Ä±äFont.Charset£¬Ä³Ð©Ôª¼þÈÔÈ»»á³öÏÖÂÒÂ룬ÈçStatusBar¡£Òò´Ë£¬ÔÚÔ½ÄÏÎİæµÄwindowsÏÔʾԽÄÏÎÄ£¬ÔÚÒÁÀÊÎİæµÄwindowsÏÔʾÒÁÀÊÎÄ£¬²»ÒªÔÚÔ½ÄÏÎİæwindowsÏÔʾÒÁÀÊÎÄ£¬ÔÚÒÁÀÊÎİæwindowsÏÔʾԽÄÏÎÄ£¬ÕâÑù¾ÍÄÜÈ·±£Ã»ÓÐÂÒÂëÎÊÌâ¡£ºÃÔÚÒ»°ãÕâÑùµÄ´íλÓ÷¨Ò²²»¶à¼û¡£
ϵͳûÓа²×°ÄãÒªÏÔʾµÄÓïÑÔµÄÓïÑÔ°ü£»
Èç¹ûÄãÒª±£Ö¤ÍêÈ«ÎÞÂÒÂ룬±ØÐ뿼ÂÇʹÓÃunicodeÂ룬ʹÓóÉÌ×µÄÖ§³ÖunicodeµÄÔª¼þ£¬Èçtnt£¬µ«ËüÔÚUI±äÏÖÉϱȽϵ¥Ò»£¬Äã²»¿ÉÄܲ»Ê¹ÓñðµÄÔª¼þ¡£
ÑÔ¹éÕý´«£¬Ê×ÏÈ£¬¿´¿´ÄÄЩµØ·½µÄ×Ö´®ÐèҪʵÏÖ¶àÓïÑÔ£¬²¢À´¿´¿´¸÷ÖÖʵÏÖ·½·¨µÄÓÅÁÓ¡£
1¡¢½çÃæÉϵÄÔª¼þ£¬ÈçTButtonµÄCaption£»
2¡¢Ö÷¶¯µ¯³öµÄÏûÏ¢£¬ÈçShowMessage('Are you sure?')£¬Raise
Exception.Create('Error!')£»
3¡¢ÀýÍâ´íÎó¾Ù·¢µÄ±¨¸æÐÅÏ¢£¬Èçf/0ÒýÆðµÄexception£»
4¡¢µÚ3·½Ôª¼þ°üÄÚ²¿µÄÉÏÊö×Ö´®£»
ʵÏÖ¶àÓïÑԵķ½·¨ºÜ¶à£¬ÁоÙÒ»¶þ£º
1¡¢delphi×Ô´øµÄResourceÉú³É¹¤¾ß
´Ë¹¤¾ß°Ñר°¸µÄdfmÎļþÀïµÄËùÓÐ×Ö´®ÒÔ¼°pasÖж¨ÒåΪResourceStringµÄ×Ö´®ÁоٳöÀ´£¬°´²»Í¬µÄÓïÑÔ±àÒë³É²»Í¬µÄResource£¬×¨
Ïà¹ØÎĵµ£º
½«Ô¶³Ì¿ØÖÆÓ¦ÓÃÓÚ½ÌѧÖУ¬ÒѳÉΪĿǰ¼ÆËã»ú»¯½ÌѧµÄÖØÒªÊֶΡ£Ò»¶¨ÓкܶàµÄÍø³æÏëÁ˽âÕâÖÖÍøÂç½Ìѧ·½Ê½µÄ±à³ÌÔÀí°É¡£ÔÚ´ËÎÒÃǾÍÒÔÒ»¸ö¼òµ¥µÄÔ¶³Ì¿ØÖƳÌÐò×÷ΪʾÀý£¬ËµÃ÷ÕâÖÖÍøÂç±à³ÌµÄ»ù±¾ÔÀí¡£±¾³ÌÐòÒÔDelphi±à³ÌΪÀý¡£
¡¡¡¡Æäʵ¸Ã³ÌÐòµÄ¹¤×÷»úÖÆºÜ¼òµ¥£¬Êܿط½ÔËÐÐÒ»¸ö³ÌÐò£¬ÓÃÓÚÕìÌý¶Ë¿Ú²¢½ÓÊÕÊý¾Ý°ü£¬¶øÖ÷¿Ø·½Í¨¹ý¶ ......
delphi ±àдµÄcom ¶ÔÏó ÓÃphpµ÷ÓÃ
µÄ
ʵÀý
delphi:
function Tmyxml.Get_xml: WideString;
begin
Get_xml:='wo shi a lei!';
end;
function Tmyxml.Get_xmldata: WideString;
var
xmlStr:string;
begin
xmlStr := '<?xml version="1.0" & ......
type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];
implementation
{$R *.dfm}
{ TCharStack }
......
Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>ÕÅÈý</name><sex>ÄÐ</sex></user>';
sh ......
Delphi in a Unicode World Part II: New RTL Features and
Classes to Support Unicode
By: Nick
Hodges
ÔÎÄÁ´½Ó:http://dn.codegear.com/article/38498
Abstract: This article will cover the new features of the Tiburon
Runtime Library that will help handle Unicode strings.
//
& ......