Чтение с Txt файла по метке, Считать строку файла по метке Опции

[Foxett]

Здравствуйте! Вот столкнулся с такой проблемой! Работаю в Делфи 7! Значит задача какова написать тест в который читает из файла вопросы и задает их пользователю из другого файла читает ответы это всё должно делаться случайным образом! Самое главное что всё это должно именно через файлы делаться так как база вопросов и ответов должны обновляться при надобности! Вобщем не могу найти способа читать с файла строку точнее даже вопрос по метке то есть
1: -----------------
2: -----------------
И потом Рандом просто выбирает число от 1 до 50 и выводит вопрос или если у кого есть другие идеи реализации то пожалуйста помогите! Вообще рэндом же по идее может повторить вопрос а мне надо чтоб не повторялись! Жду ответов! Заранее спасибо за помощь!

[volvo]

To: Foxett
Делай типизированный файл:

Type
  TQuestion = Record
    s: string[255]; { вопрос }
  End;
Var
 f: File Of TQuestion;

И для перехода на нужный вопрос пользуйся Seek-ом... Или тебе надо с текстовыми файлами велосипед изобрести?

Насчет Random:

Var 
  numbers: Set Of Byte;
  X: Byte;
...
numbers := [];
For i := 1 To 50 Do 
  numbers := numbers + [i];

While ... Do Begin
  Repeat
    X := Random(50);
  Until X in numbers; { вопросы повторяться не будут }
  numbers := numbers - [X];

  {
    Здесь, собственно читаешь вопрос №X из файла
    и делаешь с ним, что надо
  }
End;

P.S. Перенести в "Дельфи"?