wyjątki

0

jak zrobić, że przy odczycie jakiejś lini z tekstu zapamiętuje jej numer (np.) i potem już jej nie otworzy ( otworzy inną) coś jak w toto-lotku - żeby się nie powtarzały cyfry - a tu pytania????

0

Najbardziej prymitywny sposób:

  1. Losujesz linię
  2. Jeżeli nie wylosowano to 1.
  3. Odznaczasz, że jest (możesz do tego użyć zbiorów, jeżeli nie masz zbyt wiele linii lub tablic z polami typu Boolean). I znowu 1.
0

może co.ś dokładniej

0

var
ListBox : TListBox; i, a : Integer;
begin
ListBox := TListBox.Create;
ListBox.Items.LoadFromFile('linie.txt');
Randomize;
a := Random(ListBox.Items.Count) - 1;
ListBox.ItemIndex := a;
i := a;

// Następne losowania

Repeat
a := Random(ListBox.Items.Count) - 1;
ListBox.ItemIndex := a;
Until a i;
i := a;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0