[WishHunter]

Народ, помогите, нужна программа. Пользователь вводит количество билетов, и при нажатии кнопки программа выдает рандомно 2 билета из введенного количества. Это вроде не трудно. Но нужно при повторном нажатии этой же кнопки вывести новые 2 рандомных билета, но уже без тех что выдавал в предыдущий раз. И так пока не закончатся билеты. Когда закончатся, при нажатии этой же кнопки вывести сообщение что билеты кончились.

Премного вам благодарен, заранее!

[poli-smen]

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

Народ, помогите, нужна программа. Пользователь вводит количество билетов, и при нажатии кнопки программа выдает рандомно 2 билета из введенного количества. Это вроде не трудно. Но нужно при повторном нажатии этой же кнопки вывести новые 2 рандомных билета, но уже без тех что выдавал в предыдущий раз. И так пока не закончатся билеты. Когда закончатся, при нажатии этой же кнопки вывести сообщение что билеты кончились.

По нажатию первой кнопки (Button1) заполняется список билетов, а каждое нажатие второй кнопки (Button2) вынимает из этого списка по 2 билета:

Код:

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

var   List: TStringList = nil;   procedure TForm1.Button1Click(Sender: TObject); var   s: string;   Count, i: Integer; begin   if InputQuery('', 'Введите количество билетов', s) then   begin     if TryStrToInt(s, Count) and (Count >= 1) then     begin       if Assigned(List) then List.Clear else List := TStringList.Create;       if RandSeed = 0 then Randomize;       for i := 1 to Count do List.Add(IntToStr(i));     end else     begin       MessageDlg('Введено некорректное число билетов', mtError, [mbOK], 0);     end;   end; end;   procedure TForm1.Button2Click(Sender: TObject); var   s: String;   k: Integer; begin   if Assigned(List) and (List.Count > 0) then   begin     if List.Count > 1 then     begin       k := Random(List.Count);       s := List[k];       List.Delete(k);         k := Random(List.Count);       s := s + ', ' + List[k];       List.Delete(k);         MessageDlg('Выбраны билеты ' + s, mtInformation, [mbOK], 0);     end else     begin       MessageDlg('Остался последний билет ' + List[0], mtInformation, [mbOK], 0);       List.Delete(0);     end;   end else   begin     MessageDlg('Билеты кончились', mtError, [mbOK], 0);   end; end;