Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

ü StringGrid1 - представляет собой таблицу, ячейки которой содержат строки символов. Для ввода массива удобно использовать компонент StringGrid.

В Unit3 заносим программный код:

procedure TForm3.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

procedure TForm3.FormActivate(Sender: TObject)

begin

tabl.Cells[0,0]:= Заказчик';

tabl.Cells[1,0]:='Расстояние (km)';

tabl.Cells[0,1]:='Гипермаркет «Линия» ';

tabl.Cells[0,2]:='Супермаркет «Европа» ';

tabl.Cells[0,3]:='Торговый центр «Поиск»';

tabl.Cells[0,4]:='777';

end;

procedure TForm3.Button2Click(Sender: TObject);

var

c,r:integer;

s:integer;

p:integer;

m:integer;

buf:array[0..5] of string;

i:integer;

begin

for r:=1 to tabl.rowcount do /

begin

for c:=1 to 3 do