for i:=1 to n+1 do

    if a[i].Fam='' then begin l:=i; break; end;

    stringgrid1.RowCount:=l;

    for i:=1 to l+1 do

    for j:=0 to 3 do

    begin

    if j=0 then stringgrid1.cells[j,i]:=a[i].fam;

    if j=1 then stringgrid1.Cells[j,i]:=a[i].str;

    if j=2 then stringgrid1.Cells[j,i]:=a[i].dom;

    if j=3 then begin stringgrid1.cells[j,i]:=a[i].kv; end;

    end;

      end; 

    procedure TForm1.N4Click(Sender: TObject);

    begin

    if OpenPictureDialog1.Execute then

    begin

    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

    end;

    end;

    procedure TForm1.N13Click(Sender: TObject);

    begin

    if ColorDialog1.Execute then

    Form1.Color := ColorDialog1.Color;

    end;

    procedure TForm1.N15Click(Sender: TObject);

    begin

    if ColorDialog1.Execute then

    StringGrid1.Color := ColorDialog1.Color;

    end;

    procedure TForm1.N11Click(Sender: TObject);

    begin

    if FontDialog1.Execute then

    StringGrid1.Font := FontDialog1.Font;

    end;

    procedure TForm1.N19Click(Sender: TObject);

    begin

    close;

    end;

    procedure TForm1.N8Click(Sender: TObject);

    begin

    close;

    end;

    end. 

 

Приложение 2

Внешний вид форм программы

      Главная форма:

 

      

Приложение 3

Список  использованных компонентов

В программе были использованы следующие компоненты:

StringGrid: таблица с информацией об учащихся;

Image: для отображения изображений;

Button1 и Button2: для добавления строк и очистки таблицы;

Form: для создания окон программы;

OpenDialog и SaveDialog: для работы с файлами,

MainMenu: для создания главного меню;