Delphi 生成可以控制最大32位随机英文数字字符串

本文整理自网络，侵删。

 
Uses ActiveX;

//随机英文数字 dInt 长度  1-32
function Rand(dInt: Integer):string;
var
  I: Integer;
  sGUID  : string;
  TmpGUID: TGUID;
begin
  for I := 0 to 10 do
  begin
    if CoCreateGUID(TmpGUID) = S_OK then
    begin
      sGUID := GUIDToString(TmpGUID);
      sGUID := Copy(StringReplace(sGUID, '-', '', [rfReplaceAll, rfIgnoreCase]), 2, dInt);
    end
    else
      ShowMessage('Create GUID error!');
   // ShowMessage(sGUID);
  end;

  Result:=sGUID;
end;

//调用方法
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Rand(32));
end;

 

相关阅读 >>

Delphi 运行带参数的程序等待其并获取结果

如何用Delphi实现windows xp中“本地连接”的启用和禁用

Delphi exe图标替换

Delphi 主窗体最小化时不显示在任务栏

Delphi twebbrowser 响应回车键(ewb响应正常，无需额外代码)

pascal 语言中的关键字及保留字

Delphi2010中tresourcestream流使用

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi工具之winsight

Delphi rest服务器返回图像并显示在浏览器中

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 生成可以控制最大32位随机英文数字字符串