Школьный журнал

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i, c: integer;
begin
 
i:=0;
 for c:= 1 to 9 do
begin
if StringGrid1.Cells[0, c] = 'Иванов' then  // проходим в цикле только 1 столбец
      for i:= 1 to 11 do
       begin
       if StringGrid1.Cells[i, c] = '' then begin  //  если пусто то ставим оценку
         StringGrid1.Cells[i, c]:= edit1.Text;
         exit;    // выход из процедуры
       end;
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
a, i, c: integer;
begin
StringGrid1.ColCount:=11; // Задаем число столбцов и строк таблицы
StringGrid1.RowCount:=9;
 
StringGrid1.DefaultColWidth:= 56; // Задаем шируну и высоту ячеек
StringGrid1.DefaultRowHeight:= 25;
 
for a:= 1 to 10  do  // раставляем цифры от 1 до 10 в
StringGrid1.Cells[a, 0]:= IntToStr(a);     // горизонтальной области заголовка
 
 
StringGrid1.Cells[0, 1]:='Петров';
StringGrid1.Cells[0, 2]:='Соколов';
StringGrid1.Cells[0, 3]:='Медведев';
StringGrid1.Cells[0, 4]:='Сидоров';
StringGrid1.Cells[0, 5]:='Иванов';
StringGrid1.Cells[0, 6]:='Панов';
StringGrid1.Cells[0, 7]:='Голубев';
StringGrid1.Cells[0, 8]:='Свинцов';
 
 
end;
 
end.