Контрольная работа: Разработка программы представления табличных данных в виде диаграммы прямоугольников

GR.Series[0].Add(StrToFloat(SG.Cells[1, ser]),

SG.Cells[0, ser], clMedGray);

end;

end;

procedure TFMAIN.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TFMAIN.BCLOClick(Sender: TObject);

var i:integer;

begin

if is_open then begin

CloseFile(fdata);

for i:=1 to SG.RowCount-1 do

SG.Rows[i].Clear;

GR.Series[0].Clear;

SG.Cells[0,1]:=''; SG.Cells[1,1]:='';

SG.RowCount:=2;

SG.Enabled:=false;

SG.Enabled:=false; EVAL.Enabled:=false;

GR.Enabled:=false; EKEY.Enabled:=false;

BENT.Enabled:=false; BMAKE.Enabled:=false;

BSAV.Enabled:=false; BCLO.Enabled:=false;

FMAIN.Caption:='Представление табл. данных прямоугольной диаграммой'

is_open≔false;

BNEW.Enabled:=true; BOPEN.Enabled:=true;

end; end;

end.

{ Листинг файла KDialog.pas }