генерирование и сравнение

[i'm pissed]

имеем код

Код: Выделить всё

Randomize
x = Int(Rnd * 4)
WriteINI "1", "lb " & x & "", (x), App.Path & "\bd.ini"
     Label1 = ReadINI("1", "Label" & x & ".Caption", App.Path & "\bd.ini")
    Option1(0).Caption = ReadINI("1", "Option1.Caption", App.Path & "\bd.ini")
    Option1(1).Caption = ReadINI("1", "Option2.Caption", App.Path & "\bd.ini")
    Option1(2).Caption = ReadINI("1", "Option3.Caption", App.Path & "\bd.ini")
    Option1(3).Caption = ReadINI("1", "Option4.Caption", App.Path & "\bd.ini")
    Option1(4).Caption = ReadINI("1", "Option5.Caption", App.Path & "\bd.ini")


здесь сгенерированное число записывается в файл, значит потом считываю.
Как сделать вот например я сравниваю сгенерированное значение с тем которое записано в файле[code] ReadINI("1", "lb " & x & "", App.Path & "\bd.ini") = (x)[code]

как сделать если значение совпадает, то число опять генерировалось и так пока не сгенерируется то число которого нет в файле.

[_Мика_]

Сои предположения:
Генирируем число, проверяем есть ли в переменной Х сгенерированное число, если нет то добовляем в переменную Х ето число, если да то переходим опять к генерации!

Вроди все

З.Ы. еще надо там впихнуть коунтер, который бы проверял, все ли возможные числа сгенирировались, или нет