|
Вопрос # 557/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты! У меня назрел такой весьма легкий вопрос, как из списка TStringList по какому-нибудь событию выводить случайную строку (этакий рэндом)?
 |
Вопрос задал: Phoenix (статус: Посетитель)
Вопрос отправлен: 7 мая 2007, 22:23
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Николай Рубан
Здравствуйте, Phoenix!
Все действительно легко - покажу на примере ListBox-а, для StringList-а аналогично:
Randomize;
ShowMessage(ListBox1.Items[random(ListBox1.Items.Count)]);
Good Luck!!!
 |
Ответ отправил: Николай Рубан (статус: 10-ый класс)
Время отправки: 7 мая 2007, 23:34
|
Ответ #2. Отвечает эксперт: min@y™
function GetRandomString(List: TStringList): string;
begin
Result:= List[Random(List.Count - 1)];
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 мая 2007, 08:13
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 8 мая 2007, 10:58; участников в обсуждении: 2.
|
Dron (статус: Студент), 8 мая 2007, 09:56 [#1]:
min@y™: ваш код никогда не выдаст последнюю строку списка...
С уважением.
|
|
|
min@y™ (статус: Доктор наук), 8 мая 2007, 10:37 [#2]:
2 Dron: верно. Тогда так: Result:= List[Random(List.Count)];
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Dron (статус: Студент), 8 мая 2007, 10:49 [#3]:
По сути, ничем не отличается от ответа Николая, но в виде функции, наверное, всё же более удобно...
С уважением.
|
|
|
min@y™ (статус: Доктор наук), 8 мая 2007, 10:58 [#4]:
Апдэйт 
function GetRandomString(List: TStringList): string;
begin
if List.Count <> 0
then Result:= List[Random(List.Count - 1)]
else Result:= '';
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
