本文整理自网络,侵删。
首部 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用idhttp.get访问一个网址返回403错误,但用ie浏览器访问正常
更多相关阅读请进入《Delphi》频道 >>