Пишем тест. Уровень Beginner. Урок 1

unit UMyClasses; 
 
interface
 
uses
  Classes, Types, Sysutils;
 
type
  TQuestion = record
    Q: string;
    A: array[0..3] of string;
    Right: integer;
  end;
 
  TDBSettings = record
    server: string;
    db: string;
  end;
 
  TMySettings = class
  public
    Login: string;
    Role: string;
    DBSettings: TDBSettings;
  end;
 
var
  Settings: TMySettings;
  Questions: array of TQuestion;
  Answers: array of integer;
 
function ReadQuestionsFromFile(FName: string): string;
 
implementation
 
function ReadQuestionsFromFile(FName: string): string;
var
  List: TStringList;
  VCount, I: integer;
begin
  List := TStringList.Create();
  List.LoadFromFile(FName); //прочитаем весь файл в список строк
  result := List[0]; // В первой строке у вас какой-то текст для заголовка
  VCount := StrToInt(List[1]); // во второй строке - кол-во записей
  SetLength(Questions, VCount);  // теперь,зная это количество, установим размер массива Questions
  SetLength(Answers, VCount); // и массива Answers
  I := 0;
  /// начиная с третьей строки, читаем вопросы
  while I < VCount do
  begin
    Questions[I].Q := List[2 + I * 6 + 0];
    Questions[I].A[0] := List[2 + I * 6 + 1];
    Questions[I].A[1] := List[2 + I * 6 + 2];
    Questions[I].A[2] := List[2 + I * 6 + 3];
    Questions[I].A[3] := List[2 + I * 6 + 4];
    Questions[I].Right := strToInt(List[2 + I * 6 + 5]);
    I := I + 1;
  end;
  List.Free;
end;
 
initialization
  Settings := TMySettings.Create;
 
finalization
  FreeAndNil(Settings);
 
end.

type
  TfMainForm = class(TForm)
    grp1: TGroupBox;
    eLogin: TEdit;
    ePass: TEdit;
    bOk: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure bOkClick(Sender: TObject);
  private
    procedure GoTest;
  public
  end;
 
var
  fMainForm: TfMainForm;
 
implementation
 
uses
  UTestForm;
 
{$R *.dfm}
 
procedure TfMainForm.bOkClick(Sender: TObject);
begin
  // здесь будет проверка логина, но пока просто переход к тесту
  GoTest();
end;
 
procedure TfMainForm.GoTest;
var f:TfTestForm;
begin
  Hide;
  f:=TfTestForm.Create(self);
  try
    f.ShowModal;
  finally
    show;
    FreeAndNil(F);
  end;
end;

unit UTestForm;
 
interface
 
uses
  classes, types, forms, Controls, UMyClasses, ExtCtrls, StdCtrls;
 
type
 
  TfTestForm = class(TForm)
    pnl1: TPanel;
    lblQuestion: TLabel;
    bNext: TButton;
    rgVariants: TRadioGroup;
    pnlQuectionNo: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    procedure ShowCurQuestion;
  public
    CurQuestion : integer;
  end;
 
var
  fTestForm: TfTestForm;
 
implementation
 
uses
  sysutils;
 
{$R *.dfm}
 
{ TMainForm }
procedure TfTestForm.FormCreate(Sender: TObject);
var
  Filename: string;
begin
  Filename := extractFilePath(ParamStr(0))+'questions.dat';
  Caption := ReadQuestionsFromFile(Filename);
  CurQuestion := 0;
  ShowCurQuestion;
end;
 
procedure TfTestForm.ShowCurQuestion;
var
  i: Integer;
begin
  pnlQuectionNo.Caption := Format('Вопрос %d / %d',[curQuestion+1, Length(Questions)]);
  lblQuestion.Caption := questions[CurQuestion].Q;
  rgVariants.Items.Clear;
  for i := 0 to 3 do
    rgVariants.Items.Add(questions[CurQuestion].A[i]);
  rgVariants.ItemIndex := -1;
end;
end.