简单问题.(50)

procedure TfmMain.Timer2Timer(Sender: TObject);var cc:Byte
ll,ii:Integer;begin ii:=Length(Caption)
ll:=Length(CapS)
if(ii>=ll)then begin Caption:=''
ii:=0
end
cc:=Ord(CapS[ii+1])
if(cc>160)then begin Caption:=Copy(CapS,1,ii+2)
end else begin Caption:=Copy(CapS,1,ii+1)
end;end;这个过程是干什么用的啊,里面的caption又是什么意思请问

它是指取当前窗体的CAPTION,不过感觉有问题.最好在caption前加个self.caption这样指明才行.--------------另外,你要指明变量CapS的申明处及在那里辅值,辅的是什么值.

谢谢luoyanqing119的回答,不胜感激,caps的值是应用程序的title

这里CAPTION就等于fmMain.CAPTION