function RandomString(const SL: Classes.TStrings): string; overload;

begin

if SL.Count = 0 then

raise SysUtils.EArgumentException.Create(

'RandomString called with empty string list'

);

Result := SL[Random(SL.Count)];

end;

DescEx="<p>Returns a random string from the given non-empty string list.</p><p>An <var>EArgumentException</var> exception is raised if the string list is empty.</p>"

Extra="<p>The Delphi RTL has a similar <var>RandomFrom</var> function in <var>StrUtils</var> that returns a random string from a string array.</p>"

Units=SysUtils,Classes

TestInfo=advanced

AdvancedTest.Level=unit-tests

AdvancedTest.URL="https://github.com/delphidabbler/code-snippets/tree/master/tests/Cat-String"

Snip=707.dat

DelphiXE=Y

Delphi12A=Y