4 Курс / переподы / анал / Практика / Мельник / практика / Unit3

unit Unit3;

interface

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

type
TForm3 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormActivate(Sender: TObject);
begin
StringGrid1.cells[0,0]:='Назва';
StringGrid1.cells[1,0] :='Композитор';
StringGrid1.cells[2,0] :='Поет';
StringGrid1.cells[3,0] :='Виконавець';
StringGrid1.cells[4,0] :='Дата першого виконання';
StringGrid1.cells[5,0] :='Місто';
end;

procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 13 do
begin
stringgrid1.Rows[i].Clear;
end;
form1.visible:=true;
close;

end;

end.