delphi高手请进

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:29:02
delphi高手请进，帮我解决一下在delphi中用时间和日期自动产生序号，后面加"00001,00002"依此类推。例如，今天是2006年11月，那么就产生20061100001这样的序号。谢谢。

下面的程序是指，每点击一次button就向memo中加入一行，加入的东西就是你要的结果：
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
j:=1;
if i < 9 then
begin
memo1.Lines.Add(formatdatetime('yyyymm',now)+'000'+inttostr(i+1));
i := i +1;
end;
if ((i >= 9) and (i < 99)) then
begin
memo1.Lines.Add(formatdatetime('yyyym',now)+'00'+ inttostr(i+1));
i := i + 1;
end;
if ((i >= 99) and ( i < 999)) then
begin
memo1.Lines.Add(formatdatetime('yyyymm',now)+'0' + inttostr(i+1));
i := i + 1;
end;
end;

先建立INI文件
确保程序能够写入如下信息:
[date]
Sdate=2006-11-17

[order]
Sorder=00001

每次序号增加时访问上述字段
open inifile
read inifile

if currentdate == Sdate
currentorder = Sorder = Sorder+1
else
currentorder = Sorder = 00001
endif

sav