Нажатием кнопки запустить рамдомно 3 сайта из списка

@victorius-82 · Регистрация: 12.08.2014

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста. Нужно нажатием одной кнопки запустить случайным образом заданное количество интернет ссылок из определённого списка. Допустим в списке 10 разных ссылок, и нажатием кнопки 3 из них случайным образом открываются браузером по умолчанию. Открытые не должны повторяться т.е. при нажатии кнопки не должны открыться 2 ссылки № 5 или другие одинаковые.

@Sergio Leone · 03.09.2014, 09:09

если ссылок не очень много (меньше тысячи), то не морочьтесь, загоняйте ссылки в TStringList, генерите случайное значение

Delphi
1
RndIndex := MyList.Strings[  Random(MyList.Count) ]

,
найденную ссылку запускайте и удаляйте из стринглиста.
Повторяйте цикл нужное число раз.
готово!

@Puporev · 03.09.2014, 09:24

Если номера ссылок от 0 до 255, то можно генерировать еще и так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var m:set of byte;
     i,n,k:byte;
begin
randomize;
n:=MyList.Count;
m:=[];
for i:=1 to 3 do
 begin
  repeat
   k:=random(n);
  until not(k in m) ;
  //открываем ссылку номер MyList[k]
 end;

@victorius-82 · 03.09.2014, 15:10 **[ТС]**

Сообщение от Puporev

var m:set of byte;
* * *i,n,k:byte;
begin
randomize;
n:=MyList.Count;
m:=[];
for i:=1 to 3 do
*begin
* repeat
* *k:=random(n);
* until not(k in m) ;
* //открываем ссылку номер MyList[k]
*end;

А какой модуль нужно задействовать в uses, а то у меня на пятую строку ругается, говорит "Undeclared identifier: 'MyList'"

@Puporev · 03.09.2014, 15:15

Так переменную объявит нужно.

Delphi
1
2
3
4
var MyList:TStringlist;
begin
MyList:=TStringlist.Create;
..........................

Добавлено через 1 минуту
Вы пишете

Сообщение от victorius-82

из определённого списка.

Я думаю Вы должны знать о классе TStringlist

@Sergio Leone · 03.09.2014, 15:20

victorius-82, где у Вас ссылки находятся? уж не в текстовом ли файлике?

@victorius-82 · 03.09.2014, 15:22 **[ТС]**

Мыслите вы логично - должнен знать, но не знаю, я с делфи и с паскалем 3 день как разбираюсь, поэтому, знания общие, а практира почти ноль.

Но возникла задача и я пытаюсь её решить. Если не сложно напишите пожалуйста полный текст программы хотя бы для списка из трёх сайтов скажем mail.ru, vk.com, ok.ru и что бы 2 из них запускались рамдомно по нажатию клавиши. Буду очень признателен если сопроводите комментариями то, что происходит в программе, хочу разобраться как всё работает.

Добавлено через 54 секунды
нет ссылки не в текстовом файле, это вообще не важно, мне нужно понять как это работает, т.е. ссылки я могу и через делфи забить

@Sergio Leone · 03.09.2014, 16:10

код на кнопку:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
procedure TForm1.Button1Click(Sender: TObject);
var MyList:TStringlist;
    m:set of byte;
    i,n,k:byte;
    sUrl : string;
begin
  randomize;
 
  MyList:=TStringlist.Create;
  try
 
    // можно прочитать ссылки из текстового файла
    //   MyList.LoadFromFile('ВашФайл_с_ссылками.txt');
   // или вручную заполним
   MyList.Append('http://mail.ru');
   MyList.Append('http://vk.com');
   MyList.Append('http://ok.ru');
   MyList.Append('http://google.ru');
   MyList.Append('http://ya.ru');
   MyList.Append('http://yandex.ru');
   MyList.Append('https://www.cyberforum.ru/');
 
 
   n := MyList.Count;
   if n>255 then n := 255; {если ссылок больше 255 - то остальные игнорим!}
 
   m:=[];
   for i:=1 to 3 do {сколько случайных надо выбрать. в данном случае - три ссылки}
   begin
      repeat
        k:=random(n);
      until not(k in m);
 
      sUrl := MyList.Strings[k];
      //открываем ссылку
      ShellExecute(0,'open',PChar(sUrl),'','',SW_SHOWNORMAL);
    end;
  finally
    MyList.Free;
  end;
end;

p.s. обратите внимание, что данный алгоритм работает только с числом ссылок до 255.

@volvo · 03.09.2014, 16:21

Сообщение от Sergio Leone

данный алгоритм работает только с числом ссылок до 255.

А если сделать вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1Click(Sender: TObject);
var
  MyList: TStringList;
  i, Rnd: Integer;
begin
  randomize;
  MyList := TStringList.Create;
  try
    // можно прочитать ссылки из текстового файла
    // MyList.LoadFromFile('ВашФайл_с_ссылками.txt');
    // или вручную заполним
    MyList.Append('http://mail.ru');
    MyList.Append('http://vk.com');
    MyList.Append('http://ok.ru');
    MyList.Append('http://google.ru');
    MyList.Append('http://ya.ru');
    MyList.Append('http://yandex.ru');
    MyList.Append('https://www.cyberforum.ru/');
 
    for i := 0 to 2 do
    begin
      Rnd := Random(MyList.Count - i);
      ShellExecute(0, 'open', PChar(MyList[Rnd]), '', '', SW_SHOWNORMAL);
      MyList.Move(Rnd, MyList.Count - 1);
    end;
  finally
    MyList.Free;
  end;
end;

, то данное ограничение будет неактуально... Работает с любым количеством ссылок...

@victorius-82 · 03.09.2014, 16:25 **[ТС]**

А что вверху программы в uses? А копирую в делфи, выдаёт ошибку "Errou in module Unit1: Declfration of class TForm1 is missing or incorect."

@NotBeginner · 03.09.2014, 16:32

Сообщение от Sergio Leone

n := MyList.Count;

почему бы n не сделать int? тогда ограничений не будет

Сообщение от Sergio Leone

if n>255 then n := 255; {если ссылок больше 255 - то остальные игнорим!}

вообще никогда не отработает, переменная типа byte априори не может быть больше 255.

@victorius-82 · 03.09.2014, 16:38 **[ТС]**

Сообщение от UI

procedure TForm1.Button1Click(Sender: TObject);
var
* MyList: TStringList;
* i, Rnd: Integer;
begin
* randomize;
* MyList := TStringList.Create;
* try
* * // можно прочитать ссылки из текстового файла
* * // MyList.LoadFromFile('ВашФайл_с_ссылками. txt');
* * // или вручную заполним
* * MyList.Append('http://mail.ru');
* * MyList.Append('http://vk.com');
* * MyList.Append('http://ok.ru');
* * MyList.Append('http://google.ru');
* * MyList.Append('http://ya.ru');
* * MyList.Append('http://yandex.ru');
* * MyList.Append('https://www.cyberforum.ru/');
for i := 0 to 2 do
* * begin
* * * Rnd := Random(MyList.Count - i);
* * * ShellExecute(0, 'open', PChar(MyList[Rnd]), '', '', SW_SHOWNORMAL);
* * * MyList.Move(Rnd, MyList.Count - 1);
* * end;
* finally
* * MyList.Free;
* end;
end;

Вы не могли бы написать полный текст программы? начиная с модулей uses, а то в шаблон по умолчанию вставляю не работает, ругается

@Sergio Leone · 03.09.2014, 16:41

Сообщение от NotBeginner

тогда ограничений не будет

ограничения из-за ограничений Pascal/Delphi на мощность множества (set of .. )

Сообщение от NotBeginner

вообще никогда не отработает, переменная типа byte априори не может быть больше 255.

согласен. Но для автора темы это будет, надеюсь, наглядно.

Впрочем, это всё уже неважно. Ибо UI привёл улучшенный вариант!

Сообщение от victorius-82

А что вверху программы в uses? А копирую в делфи,

а Вы форму создали? Кнопку на форме разместили? По ней в дизайнере клачнули мышкой?
Код открылся? Вот туда и вставляйте.

в uses надо добавить

Delphi
1
uses ShellApi;

целиком форма может выглядеть так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses ShellApi;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var MyList:TStringlist;
    i, Rnd : integer;
begin
  randomize;
 
  MyList:=TStringlist.Create;
  try
 
    // можно прочитать ссылки из текстового файла
    //   MyList.LoadFromFile('ВашФайл_с_ссылками.txt');
   // или вручную заполним
   MyList.Append('http://mail.ru');
   MyList.Append('http://vk.com');
   MyList.Append('http://ok.ru');
   MyList.Append('http://google.ru');
   MyList.Append('http://ya.ru');
   MyList.Append('http://yandex.ru');
   MyList.Append('https://www.cyberforum.ru/');
 
    for i := 0 to 2 do
    begin
      Rnd := Random(MyList.Count - i);
      ShellExecute(0, 'open', PChar(MyList[Rnd]), '', '', SW_SHOWNORMAL);
      MyList.Move(Rnd, MyList.Count - 1);
    end;
 
  finally
    MyList.Free;
  end;
end;
 
end.

@Sergio Leone · 03.09.2014, 16:46

исходники этого проекта в архиве: Project1.rar

@victorius-82 · 03.09.2014, 16:58 **[ТС]**

Ура! Из архива всё заработало!!!! Огроменное вам спасибо! С рабочим вариантом изучаться будет быстрее!!

Добавлено через 8 минут

Сообщение от Sergio Leone

а Вы форму создали? Кнопку на форме разместили? По ней в дизайнере клачнули мышкой?
Код открылся? Вот туда и вставляйте.

конечно я это делал

Сообщение от Sergio Leone

в uses надо добавить
Код Delphi
1
uses ShellApi;

похоже у меня именно поэтому и не работало

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@victorius-82 1 / 1 / 0 Регистрация: 12.08.2014 Сообщений: 30

	Нажатием кнопки запустить рамдомно 3 сайта из списка 03.09.2014, 03:46. Показов 1416. Ответов 14 Метки нет (Все метки) Подскажите пожалуйста. Нужно нажатием одной кнопки запустить случайным образом заданное количество интернет ссылок из определённого списка. Допустим в списке 10 разных ссылок, и нажатием кнопки 3 из них случайным образом открываются браузером по умолчанию. Открытые не должны повторяться т.е. при нажатии кнопки не должны открыться 2 ссылки № 5 или другие одинаковые. 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	03.09.2014, 15:20
	victorius-82, где у Вас ссылки находятся? уж не в текстовом ли файлике? 0

@victorius-82 1 / 1 / 0 Регистрация: 12.08.2014 Сообщений: 30
	03.09.2014, 15:22 [ТС]
	Мыслите вы логично - должнен знать, но не знаю, я с делфи и с паскалем 3 день как разбираюсь, поэтому, знания общие, а практира почти ноль. Но возникла задача и я пытаюсь её решить. Если не сложно напишите пожалуйста полный текст программы хотя бы для списка из трёх сайтов скажем mail.ru, vk.com, ok.ru и что бы 2 из них запускались рамдомно по нажатию клавиши. Буду очень признателен если сопроводите комментариями то, что происходит в программе, хочу разобраться как всё работает. Добавлено через 54 секунды нет ссылки не в текстовом файле, это вообще не важно, мне нужно понять как это работает, т.е. ссылки я могу и через делфи забить 0

@victorius-82 1 / 1 / 0 Регистрация: 12.08.2014 Сообщений: 30
	03.09.2014, 16:25 [ТС]
	А что вверху программы в uses? А копирую в делфи, выдаёт ошибку "Errou in module Unit1: Declfration of class TForm1 is missing or incorect." 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	03.09.2014, 16:46
	Сообщение было отмечено victorius-82 как решение Решение исходники этого проекта в архиве: Project1.rar 1

Нажатием кнопки запустить рамдомно 3 сайта из списка

Решение