simple1986_2008的专栏

absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := abc;

转自何语的空间 http://blog.youkuaiyun.com/formiss/archive/2007/05/30/1630679.aspx 终于搞定了Delphi的Unicode支持(Tnt控件) 收藏 原来是要在FormCreate中加入以下代码:procedure TTntForm1.TntFormCreate(Sender: TObject);begin  //这句很关键.对于平台

<br />对于TStrings类型变量，需要使用TStringList.Create;创建[luther.gliethttp]，否则提示 abstract error错误<br />TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。<br />常规的用法大家都知道，现在来讨论它的一些高级的用法。<br />先把要讨论的几个属性列出来：<br />1、CommaText<br />2、Delimiter & DelimitedText<br />3、Names & Values &

<br /> if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('YZZT').AsString  ='-1' then  //刚录入未提交<br />     begin<br />       dbgrdh1.Canvas.Brush.Color :=clred ;<br />       dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);<br />       if Colu

<br /> <br />在uses 中增加   shellapi 这个单元文件;<br />//获取文件版本信息  <br />type  <br />   TFileInfo  =  packed  record  <br />       CommpanyName:  string;  <br />       FileDescription:  string;  <br />       FileVersion:  string;  <br />       InternalName:  strin