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

Label2: TLabel; Series1: TBarSeries;

procedure BNEWClick(Sender: TObject);

procedure BSAVClick(Sender: TObject);

procedure BENTClick(Sender: TObject);

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

procedure FormCreate(Sender: TObject);

procedure BOPENClick(Sender: TObject);

procedure BMAKEClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure BCLOClick(Sender: TObject);

private

fdata:file of nrec;

rec:nrec;

is_open:boolean;

end;

var

FMAIN: TFMAIN;

implementation

{$R *.dfm}

procedure TFMAIN.BNEWClick(Sender: TObject);

begin

FDIALOG.Caption:='Сохранить файл';

FDIALOG.ShowModal;

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

AssignFile(fdata, FDIALOG.getName);

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

if IOresult<>0 then begin

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

mtError, [mbOK], 0);