4 Курс / переподы / анал / Практика / Покутній Parfum / Unit11

unit Unit11;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids;

type
TForm11 = class(TForm)
tab9: TStringGrid;
SpeedButton1: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.FormActivate(Sender: TObject);
begin
tab9.cells[0,0]:='Штрихкод';
tab9.cells[1,0] :='Тип (Ж.Ч)';
tab9.cells[2,0] :='Дата випуску';
tab9.cells[3,0] :='Термін придатності(років)';
tab9.cells[4,0] :='Країна';
tab9.cells[5,0] :='Ціна(грн)';
tab9.cells[6,0] :='Фірма';
tab9.cells[7,0] :='Кількість(шт)';
tab9.cells[8,0] :='Назва';
tab9.cells[0,1] :='11120';
tab9.cells[1,1]:='Ж';
tab9.cells[2,1] :='12.12.2003';
tab9.cells[3,1] :='4';
tab9.cells[4,1] :='Британія';
tab9.cells[5,1] :='390';
tab9.cells[6,1] :='Гранд';
tab9.cells[7,1] :='243';
tab9.cells[8,1] :='Донна Каран';
end;
procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.