RandomRange ТМето Линии

-1

я выбрал бы случайную строку из Memo1, а затем запустить его в качестве ссылки, я попробовал этот код:RandomRange ТМето Линии

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?

спасибо.

источник

2012-06-18 Giacomo King Patermo

Если вы хотите, чтобы выяснить, как сделать что-то, как «выбрать случайную строку из Memo1», а затем написать тестовую программу, которая делает именно это, и выяснить, как это сделать работайте, не делая ничего другого, как «ShellExecute». Гораздо проще сказать, где проблема. –

Должно быть

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

источник

2012-06-18 15:57:38 Stefan

Спасибо, это работает, но еще один маленький вопрос: как мне открыть ссылку на той же странице? Большое спасибо –

Если вы хотите задать другой вопрос, сделайте это. –

Я вижу, что вы задали другой вопрос. Хорошо. Но, пожалуйста, не забудьте принять ответ здесь. –

ответ

Смежные вопросы