表单自编号规则

以前开发的规则是从数据库中以计数形式累计+1，但是出现删除单据后会出现变的错乱。
遂又寻找方案，在群里，群主提到了他的编号规则，时间日期，产生一启发。
方案1：
代码：jbbh.Caption:='SC'+FormatDateTime('yymmddhhmmss',Now())+inttostr(Random(9));/
一句话搞定，另或采用函数：
代码如下：
function zibianhao(str1: string): string; {自编号//代码由序铭提供}
var
Hour, Min, Sec, MSec: Word;
str2: string;
begin
DecodeTime(Now, Hour, Min, Sec, MSec);
str2 := inttostr(Random(Sec));
if length(str2) = 1 then
str2 := '0' + str2;
Result := str1 + FormatDateTime('yyyymmddhhmmss', Now()) + str2;
end;