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

fname:='';

end;

end.

{ Листинг файла Kurs.dpr }

program Kurs;

uses

Forms, Kmain in 'Kmain.pas' {FMAIN}, KDialog in 'KDialog.pas' {FDIALOG};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TFMAIN, FMAIN);

Application.CreateForm(TFDIALOG, FDIALOG);

Application.Run;

end.

Тестирование

При закрытии программы всегда выполняется процедура CloseFile;

Для каждой записи строится своя диаграмма;

При нажатии «Построить» данные из таблицы добавляются к прошлым значениям диаграммы;

При сохранении в файл считывается больше записей чем есть в таблице;

Не очищаются имена и значения в таблице при закрытии файла.

Отладка

Чтобы при закрытии программы процедура CloseFile выполнялась только тогда, когда есть открытый файл введена переменная is_open;

Изменено

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

на

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

В обработчике события OnClick кнопки «Построить» добавлена строка

GR.Series[0].Clear;

Число записей читаемых из таблицы уменьшено на единицу:

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

В обработчике события OnClick кнопки «Закрыть» добавлено: