function getint(t: Integer): string;
var
k: array of Byte;
j, i,: integer;
function isin(l: integer): Boolean;
var
i: Integer;
begin
result := False;
for i := 0 to Length(k) do
begin
if l = k[i] then
begin
result := true;
Break;
end;
end;
end;
begin
if t > 8 then
Exit;
case t of
7:
begin
Result := '1234567';
Exit;
end;
8:
begin
Result := '12345678';
Exit;
end
SetLength(k, t);
i := 0;
while true do
begin
if i >= t then
Break;
j := Random(8);
if (j = 0) or isin(j) then
begin
Continue;
end;
k[i] := j;
Inc(i);
end;
for i := 0 to t - 1 do
Result := Result + Format('%d', [k[i]]);
SetLength(k, 0);
var
k: array of Byte;
j, i: integer;
lchar: string;
function isin(l: integer): Boolean;
var
i: Integer;
begin
result := False;
for i := 0 to Length(k) do
begin
if l = k[i] then
begin
result := true;
Break;
end;
end;
end;
begin
randomize;
lchar:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
for i:=1 to t do
Result := Result + lchar[Random(62)+1];
if t > 8 then
Exit;
case t of
7:
begin
Result := Result + '1234567';
Exit;
end;
8:
begin
Result := Result +'12345678';
Exit;
end
end;
SetLength(k, t);
i := 0;
while true do
begin
if i >= t then
Break;
j := Random(8);
if (j = 0) or isin(j) then
begin
Continue;
end;
k[i] := j;
Inc(i);
end;
for i := 0 to t - 1 do
Result := Result + Format('%d', [k[i]]);
SetLength(k, 0);
var
k: array of Byte;
j, i,: integer;
function isin(l: integer): Boolean;
var
i: Integer;
begin
result := False;
for i := 0 to Length(k) do
begin
if l = k[i] then
begin
result := true;
Break;
end;
end;
end;
begin
if t > 8 then
Exit;
case t of
7:
begin
Result := '1234567';
Exit;
end;
8:
begin
Result := '12345678';
Exit;
end
end;
randomize;
i := 0;
while true do
begin
if i >= t then
Break;
j := Random(8);
if (j = 0) or isin(j) then
begin
Continue;
end;
k[i] := j;
Inc(i);
end;
for i := 0 to t - 1 do
Result := Result + Format('%d', [k[i]]);
SetLength(k, 0);
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
加入字母数字生成订单号
function getint(t: Integer): string;var
k: array of Byte;
j, i: integer;
lchar: string;
function isin(l: integer): Boolean;
var
i: Integer;
begin
result := False;
for i := 0 to Length(k) do
begin
if l = k[i] then
begin
result := true;
Break;
end;
end;
end;
begin
randomize;
lchar:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
for i:=1 to t do
Result := Result + lchar[Random(62)+1];
if t > 8 then
Exit;
case t of
7:
begin
Result := Result + '1234567';
Exit;
end;
8:
begin
Result := Result +'12345678';
Exit;
end
end;
SetLength(k, t);
i := 0;
while true do
begin
if i >= t then
Break;
j := Random(8);
if (j = 0) or isin(j) then
begin
Continue;
end;
k[i] := j;
Inc(i);
end;
for i := 0 to t - 1 do
Result := Result + Format('%d', [k[i]]);
SetLength(k, 0);
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
效率高的还是这个
function getint2(t: integer): string;
var
i: Integer;
lchar: string;
lc: Char;
begin
lchar:='12345678';
randomize;
while true do
begin
if Length(Result) = t then Break;
lc := lchar[Random(8)+1] ;
if lc = '' then Continue;
if Pos(lc,Result) > 0 then Continue;
Result := Result + lc;
end;
end;
扫描二维码关注公众号,回复:
2527418 查看本文章