Delphi 获取随机汉字的函数

本文整理自网络，侵删。

 
function SuiJiString(const AWeiShu: Integer): string;
const
  SourceStr: string = '金木水火土日月阴阳水火风雷';
var
  MyRep: string;
  I: Integer;
begin
  Randomize;
  for I := 1 to AWeiShu do
  begin
    //这里只所以必须加1,是因为SourceStr是从1开始的,而Random是从0开始的,SourceStr[0]就会报错,SourceStr[63]也会报错
    MyRep := MyRep + SourceStr[Random(9)+1];
  end;
  Exit(MyRep);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:=SuiJiString(10);
end;
 

相关阅读 >>

Delphi 防止程序重复执行(多种方法)

Delphi f1026 file not found: ''quickrpt.dcu''解决方法

Delphi 取得 ios 辅助使用里的字型大小

Delphi xe8中的firemonkey应用程序将文本复制到剪贴板

Delphi idpop3收邮件

Delphi将字符串转换成utf8编码的函数

Delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi 虚拟桌面原理及实现

了解Delphi过程类型/过程类型学习

Delphi 根据扩展名的文件搜索

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

转载请注明出处：木庄网络博客 » Delphi 获取随机汉字的函数