Delphi 随机指定范围的字符串函数

本文整理自网络，侵删。

 
function MakeRNDString(Chars: string; Count: Integer): string;
var
  i, x: integer;
begin
  Result := '';
  for i := 0 to Count - 1 do
  begin
    x := Length(chars) - Random(Length(chars));
    Result := Result + chars[x];
    chars := Copy(chars, 1,x - 1) + Copy(chars, x + 1,Length(chars));
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Caption:=MakeRNDString('ABCDEFG',4);

end;
 

相关阅读 >>

Delphi 异或加解密

Delphi unigui unistringgrid1 清空

Delphi 如何将颜色值转换为html格式？

Delphi远程注入dll方法

Delphi的字符串与16进制的相互转换函数的汇编代码

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi 复杂数据类型

Delphi application.title在win7下失效了？

Delphi的获取某坐标的颜色值

Delphi html转义

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

转载请注明出处：木庄网络博客 » Delphi 随机指定范围的字符串函数