Чтение текстового файла, текстовый файл или БД? Опции

[Jaxx]

Значит так. Мне нужно написать следующую программу: небольшая формочка с тремя полями Memo, полем Label и двумя Батонами. Суть программы: есть 100 экз. билетов, в каждом из них по 3 вопроса. По нажатию на кнопку нужно вывести - в Label номер билета, в поля Memo вопросы из него. В программе, естественно использ. Random для выбора билета. Проблема моя в том, что я не знаю, как записать вопросы и билеты. Решил забить их в текстовый файл. В каждую строку по одному вопросу (то есть билет №1 - строки 1,2,3; билет №2 - строки 4,5,6) но как мне считать строки с определенными номерами и вывести их? Али может в какую-нить БД это все впендюрить? Правда ни разу не пользовал

Сообщение отредактировано: Jaxx - 16.06.2005 10:28

[Jaxx]

Ну, я вот тут подумал и решил. В самом деле, не стоит ставить цифры в строках. Это лишний г...рой. Цифры убрал. Выбор строки написал так:

procedure TForm1.Button1Click(Sender: TObject);
var
 f:textfile;
 i,r:byte;
 s1,s2,s3:string;
 st:string;
begin
randomize;
 i:=0;
 assignfile(f,'index.txt');
 reset(f);
 Memo1.Lines.Clear;
 Memo2.Lines.Clear;
 Memo3.Lines.Clear;
 st:='';
 r:=random(73);
 Label2.Caption:=IntToStr®;
    for i:=1 to ((r-1)*3) do begin
    readln(f,st);
    Memo1.Lines.Text:=st;
    st:='';
    readln(f,st);
    Memo2.Lines.Text:=st;
    st:='';
    readln(f,st);
    Memo3.Lines.Text:=st;
    st:='';
    end;
    i:=0;
    end;

Почему-то выбор строк происходит неправильно. Например, билет с номером 4 показывает строки начиная с 25, билет номер 5 - 34, второй билет кажет на 7 строку. В чем дело? А в половине нажатий в Memo вообще вылазиет не строка, а вертикальная черточка. Если пользовать Memo1.Lines.Add, то иногда в Memo остается часть другого текста.

Сообщение отредактировано: Jaxx - 16.06.2005 16:53