windows - RandomRange TMemo 线条

Question

我会从 Memo1 中随机选择一行，然后将其作为链接运行，我尝试了以下代码：

ShellExecute(Handle, 'open', PAnsiChar(RandomRange(Memo1.Lines[1], Memo1.Lines.Count)), nil, nil, SW_SHOWNORMAL) ;

但是会出现错误：

Unit1.pas(86): E2010 Incompatible types: 'Integer' and 'string'

所以我的问题是：如何从 TMemo 中选择一条随机线？

谢谢你。

Answer 1

应该

ShellExecute(Handle, 'open', PChar(Memo1.Lines[RandomRange(0, Memo1.Lines.Count-1)]), nil, nil, SW_SHOWNORMAL) ;