Нужно убрать лишнее!!!

[Less1]

Задание:
Написать программу для проведения тестирования. Программа должна быть написана в многооконном интерфейсе: при запуске выдается окно приветствия, при нажатии кнопки на котором, появляется окно для тестирования. Пользователю задается вопрос и даются несколько вариантов ответа на выбор (количество вариантов может быть различным). В программе предусмотреть возврат к предыдущему вопросу (при возврате должен показываться выбранный ранее ответ). По окончании тестирования, программа подсчитывает и показывает количество правильных ответов и дает возможность пройти тестирование заново. Количество вопросов тестирования должно быть не менее трех.

Дополнительно (автомат на экзамене): Сделать загрузку вопросов (соответсвенно и ответов) из внешнего файла. Количество вопросов и вариантов ответов - произвольное. Сделать шифрование данных в файле, чтобы просматривая файл нельзя было узнать правильные варианты ответов. Сделать редактор фала вопросов-ответов.


Вот задание. По этому заданию все сделано, но мне нужно убрать из проги загрузку из внешнего файла, в общем последний абзац задания надо убрать. Помогите плиз. И если не трудно, опишите по блокам где что значит))

[Valio]

Зачем убирать? Ведь тогда не будет "автоматом"...

[Less1]

Так я уже пролетел с автоматом, а отчитать без всяких дополнений будет легче))

[Valio]

И в чём проблема убрать?

[Less1]

Дык я убрал все лишнее, что считаю не нужным, но программу делал не я сам и не сильно шарю в ней, а завтра экзамен, хотелось бы наверняка.

[Valio]

Чтоб было наверняка её надо откомпилировать и посмотреть как на неё смотрим Delphi. По файлу в Ворде никто ничего не скажет.

[Less1]

Я рассчитывал на то, что здесь так глянут в ворде и скажут, что лишнее)) Все таки форум программистов)

[Valio]

Сообщение от Less1

Я рассчитывал на то, что здесь так глянут в ворде и скажут, что лишнее)) Все таки форум программистов)

Это всё равно что ремонтировать машину по фотке. Вроде и специалист, а починить не получается.

[Less1]

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Buttons, StdCtrls, unit3, unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
  form1.hide;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Application.CreateForm(TForm3, Form3);
 form1.hide;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

[Less1]

unit unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, unit3;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Radio: TRadioGroup;
    Button3: TButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;
var
  Form2: TForm2;

implementation

uses unit1;

{$R *.dfm}

const cod = 471;
var a: array[1..100, 1..50] of string;
  b: array[1..100] of integer;
  f: array[1..50] of integer;
  u: array[1..100] of integer;
  x, m, n: integer;


function Encrypt(const s: string; cod: integer): string;
var i: integer;
begin
  Result := '';
  for i := 1 to Length(s) do
  begin
    Result := Result + Char(Byte(s[i]) xor (cod shr 8));
    cod := (Byte(Result[i]) + cod) * 62142 + 11719;
  end;
end;


procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('Вы уверены, что хотите выйти?', mtConfirmation, [mbYes], 0) = mrYes then
  form1.close;
end;

procedure TForm2.FormActivate(Sender: TObject);
var ffile: textfile; i, j, g: integer; s, s1, s2, w: string;
begin
  i := 1;
  j := 1;
  x := 1;
  m := 0;
  AssignFile(ffile, 'file.txt');
  reset(ffile);
  while not eof(ffile) do
  begin
    readln(ffile, s);
    g := length(s);
    if s[g] = '&'  then begin
      w := Copy(s, 1, Pos('&', s) - 1);
      Delete(s, 1, Length(w) + 1);
      s1 := encrypt(w, cod);
      b[i] := strtoint(s1);
      f[i] := j;
      n := i;
      i := i + 1;
      j := 1 end else begin
      s2 := encrypt(s, cod);
      a[i, j] := s2;
      j := j + 1 end;
  end;
  label1.caption := a[1, 1];
  for j := 2 to f[1] - 1 do
    radio.items.Append(a[1, j]);

end;

procedure TForm2.Button1Click(Sender: TObject);
var j: integer;
begin
  if radio.ItemIndex + 1 = b[x] then
    m := m + 1;
  u[x] := radio.ItemIndex;
  x := x + 1;
  label1.caption := a[x, 1];
  radio.items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    radio.items.Append(a[x, j]);
    radio.ItemIndex := u[x];
  end;
  button2.show;


  if x = n + 1 then
  begin
    label1.Caption := 'правильно отвечено ' + inttostr(m);
    button3.Show;
    button1.Hide;
    button2.hide;
  end;

end;

procedure TForm2.Button2Click(Sender: TObject);
var j: integer;
begin
  u[x] := radio.ItemIndex;
  if x = 2 then button2.show;
  if m <> 0 then m := m - 1;
  x := x - 1;
  radio.Items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    label1.Caption := a[x, 1];
    radio.items.Append(a[x, j]);
    radio.ItemIndex := u[x];
  end;
end;

procedure TForm2.Button3Click(Sender: TObject);
var j: integer;
begin
  x := 1;
  m := 0;
  radio.Items.Clear;
  for j := 2 to f[x] - 1 do
  begin
    label1.Caption := a[1, 1];
    radio.items.append(a[1, j]);
  end;
  button3.Hide;
  button1.Show;
end;

end.