RandomRange TMemo Lines

时间:2012-06-18 15:50:44

标签: windows delphi line memo

我会从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中选择随机行?

谢谢。

1 个答案:

答案 0 :(得分:7)

应该是

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