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

Содержание

Формализация задачи

Словесное описание алгоритма

Листинг программы

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

Отладка

Формализация задачи

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

Словесное описание алгоритма

Нажатием кнопки «Новый» производится создание нового типизированного (nrec) файла: выводится диалоговое окно с текстовым полем для имени файла, затем это имя устанавливается в соответствие файловой переменной (fdata). Файл открывается процедурой Rewrite, затем производится проверка на наличие ошибок при открытии файла. Если открытие было успешным, то флаг is_open присваивается значение true, становятся доступными элементы для ввода записей.

Нажатием кнопки «Открыть» производится открытие файла для чтения процедурой Reset. Если файл открыт, производится считывание всех записей из этого файла и помещение их в таблицу (SG), флаг is_open устанавливается в true.

Нажатием кнопки «Ввод» проверяется не пусты ли текстовые поля EKEY и EVAL. Если «нет»б проверяются данные в поле EVAL. Если эти данные являются числом, то данные из EKEY и EVAL записываются в таблицу.

Диаграмма (GR) строится нажатием кнопки «Построить»: очищаются значения диаграммы, если в таблице значений не больше чем два, построение не выполняется.

Кнопка «Сохранить» перемещает указатель на начало файла и записывает все данные из таблицы в открытый файл.

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

При закрытии программы всегда выполняется процедура 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 кнопки «Закрыть» добавлено:

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

SG.Rows[i].Clear;

end;

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать