delphi 生成不重复数字随机码
function GeneraNIP(Longitud: Integer): String;
var
s : String;
i : Integer;
begin
Randomize;
s:='';
for i:=1 to 255 do
s:=s + IntToStr(Random(10) + 1);
i:=Random(253 - Longitud) + 1;
Result:=Copy(S, i, Longitud);
if Result[1] = '0' then
Result[1]:='1';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Caption:=GeneraNIP(10);
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.072065830230713 seconds