本文整理自网络,侵删。
首部 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 getmodulefilename函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
Delphi xe5 android 使用system.zip单元释放资源文件
更多相关阅读请进入《Delphi》频道 >>