我现在想在点击button的时候,一个i自动加1,怎么写啊??如开始为0000 ,第二次为0001 第三次为0002.........
依次下去,这个该怎么写啊,谢谢
依次下去,这个该怎么写啊,谢谢
解决方案 »
- delphi类中的 属性怎么写?还有怎么调用
- “文本内容中发现无效字符”怎么回事,斑竹们?影响偶挣分啊~~
- Tstringgrid,不滚动滚动条,如何显示后面的数据
- dll资料,有的朋友给一份
- ☆☆申请“Delphi 网络编程/分布式开发”版主,请大家多多支持!☆☆
- 怎样转换数据库文件的路径。
- 把分送给一个朋友(他的分用完了)
- 如何取服务器时钟?
- delphi 读取内存数据问题,高手进!
- 一个简单的问题---怎样对TTable中的数据进行倒排序?
- 如何可以使DELPHI form的控件像 flash一样,窗体大,相应的控件也放大,位置也会相对地变化
- 请问高手:怎么把GB2312编码转换成汉字啊?比如把"%E9%83%AD%E6%99%93%E8%8F%B2"转换成"郭晓菲"
public
i :integer;procedure TForm1.FormShow(Sender: TObject);
begin
i ;= 0;
end;procedure TForm1.Button1Click(Sender: TObject);
var
ii :integer;
iii :string;
begin
ii := i+1;
i := ii;
iii := rightstr('0000'+intotostr(ii),4);
end;