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
0
Najbardziej prymitywny sposób:
- Losujesz linię
- Jeżeli nie wylosowano to 1.
- 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;