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

EVAL.Text:='';

exit;

end;{try...}

SG.Cells[0, SG.RowCount-1]:=EKEY.Text;

SG.Cells[1, SG.RowCount-1]:=EVAL.Text;

SG.RowCount:=SG.RowCount+1;

end;{if (EKEY...}

end;

procedure TFMAIN.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if is_open then CloseFile(fdata);

end;

procedure TFMAIN.FormCreate(Sender: TObject);

begin

is_open:=false;

SG.Cells[0,0]:='Имя';

SG.Cells[1,0]:='Значение';

SG.RowCount:=SG.RowCount+1;

end;

procedure TFMAIN.BOPENClick(Sender: TObject);

var i:integer;

begin

FDIALOG.Caption:='Открыть файл';

FDIALOG.ShowModal;

if(FDIALOG.getName<>'') then begin

AssignFile(fdata, FDIALOG.getName);

{$I-}Reset(fdata){$I+};

if IOresult<>0 then begin

MessageDlg('Ошибка при открытии файла!',