初学求助!
初学求助! VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221172200210.html
000001(字符型) 循环100次
结果为000100
该用什么函数?请大家教我
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221172200210.html
000001(字符型) 循环100次
结果为000100
该用什么函数?请大家教我
不明白什么意思
000001 循环100次每次加1,
结果为000100
字符串是不能直接按数字累加的,需要转换成整数,然后再换成字符串.
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
j := 0;
for i := 1 to 100 do
Inc(j);
edit1.Text := FormatFloat('000000', j);
end;
var
i: Integer;
s: String;
begin
s := '000001';
i := StrToInt(s);
for .... //做100次
inc(i);
s := Format("%.6d',i);
格式转换啊,兄弟,我也是刚学,加油啊,一起