本文整理自网络,侵删。
首部 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas 功能 随机返回字符串数组AValues中的一个元素 说明 之前建议执行Randomize 参考 function System.Random 例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);
相关阅读 >>
Delphi getsys32path()得到系统system32路径
Delphi removeinvalid截取字符串某个字符前面的字符
更多相关阅读请进入《Delphi》频道 >>