//如需包含小寫字母，數字，在S中添加。
function aaa(Num:Integer): string;
var
i: Byte;
s: string;
begin
s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Result := '';
for i := 0 to Num-1 do
Result := Result + s[Random(Length(s)-1)+1];
end;

總結

以上是生活随笔為你收集整理的产生指定长度的随机字符串的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。