逆风飞翔的专栏

<br />计算中英文混合字符串的长度<br /> <br />function ByteLength(s:string):integer;<br />var<br />  i,temp:integer;<br />begin<br />  temp:=0;<br />  if s='' then<br />  begin<br />    Result:=0;<br />  end;<br />  for i:=0  to Length(s)-1  do<br />  begin<br />    if

Delphi操作Excel命令 <br />   <br />使用Excel最好用Comobj方式，它能够达到完全控制excel的目的。<br />不过这种方式在Delphi中没有代码提示,而使用Server控件的方式有！<br />下边是使用comobj的，使用Server 的就不放进来了！另外用完Variant要释放掉<br />这样比较好（ExcelApp:=Unassigned;）<br />use Comobj<br />(一) 使用动态创建的方法<br />首先创建 Excel 对象,使用Co

【学习万一老师博客摘要】TTreeView 与两个重要的类相关：TTreeNodes、TTreeNode 。TTreeNodes即是TTreeView 的Items属性，TTreeNodes是TTreeNode的合集，TTreeNode代表的是TTreeView的节点，不按主从关系，节点依次存储在Items中。