| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рандомное слово [D7]

Страницы:   < 1 2 3 >

Дмитрий ©   (2009-08-09 14:15:00) 

Дана строка со словами, нужно выбрать из этих слов рандомное... Как это сделать???

---

Palladin   (2009-08-09 14:22:00) [41]

Домашняя работа: Обработать случай попадания в разделитель

---

Palladin   (2009-08-09 14:20:00) [42]

Var
 b,e,n:Integer;

n:=Random(Length(s)-1)+1;
b:=n; While (b>=1) and not (s[b] in разделители) Do Dec(b);
e:=n; While (e<=Length(s)) and not (s[e] in разделители) Do Inc(e);
ShowMessage(Copy(s,b,Length(s)-e+1));

---

Страницы:   < 1 2 3 >

Наверх