RandomRange TMemo Lines

Я бы выбрал случайную строку из 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 ответ

Решение

Должно быть

ShellExecute(Handle, 'open', PChar(Memo1.Lines[RandomRange(0, Memo1.Lines.Count-1)]), nil, nil, SW_SHOWNORMAL) ;
Другие вопросы по тегам