//获得随机编码值,用于在数据库中设为唯一识别其它记录
function GetRandom():String;
var IdString:string;
begin
DateTimeToString(IdString,'yyyymmddhhnnsstt',now);
Randomize;
IdString:='guet'+copy(IdString,1,16)+IntToStr(RandomRange(10,99));
Randomize;
IdString:=trim(IdString)+IntToStr(RandomRange(100,999));
Randomize;
IdString:=trim(IdString)+IntToStr(RandomRange(1000,9999));
result:= IdString;
end;
function GetRandom():String;
var IdString:string;
begin
DateTimeToString(IdString,'yyyymmddhhnnsstt',now);
Randomize;
IdString:='guet'+copy(IdString,1,16)+IntToStr(RandomRange(10,99));
Randomize;
IdString:=trim(IdString)+IntToStr(RandomRange(100,999));
Randomize;
IdString:=trim(IdString)+IntToStr(RandomRange(1000,9999));
result:= IdString;
end;