Создание тестов на Delphi. Часть 4

Итак в части 1 мы поговорили о возможности создание теста в файл, в части 2 мы поговори, как эти тесты из типизированного файла достать, а вот уже в части 3 мы поговорили как можно определить правильные ли выбрал пользователь ответы. В четвертой части по созданию тестов на типизированных файлах, я хотел бы рассказать как можно использовать другие виды файлах в своих тестах на основе типизированных файлов, например картинки. Тут все просто ничего сложно, в нашей структуре (в нашей записи) мы добавляем еще одно текстовое поле, например

• filename:string[200];

Отлично, в этом поле у нас будут храниться все наши имена файлов, которые мы будем использовать. Нам в нашей папке с программой необходимо создать еще какую-нибудь папку, например, files. Далее мы при создании теста приложим еще одну кнопку, например «Картинка«, далее по нажатию этой кнопки мы в нашу переменную filename записываем имя нашего файла, именно имя, например вот так

• Test.Filename:=ExtractFileName(OpenDialog.Filename);

Далее мы с помощью функции CopyFile — копируем наш файл, что выбрали в папку files, которая находится в папке с программой. Копировать нужно файл с именем Test.Filename.

Затем при выгрузке данных из файла, то есть при выгрузке вопроса, мы проверяем данное поле, есть ли у нас там что-то, если есть, то проверяем с помощью функции FileExist есть ли данный файл в папке files, если есть, то выводим в TImage например нашу картинку, например.

• Image1.Picture.LoadFromFile(‘files/’+Test.Filename);

Вот и все как видите ничего сложно, и так можно работать с любыми типами файлов. Только опять же, размер нашей программы будет увеличиваться, тот тут легко тоже все, можно создать папку на сервере и в filename просто прописывать сетевой путь к файлу и по этому пути грузить, что Вам необходимо и пользователи не будут знать где лежат эти файлы. В следующей статье про тесты расскажу, как можно их редактировать, не удалять, а именно редактировать.

Автор статьи - Andrey53

Метки: создание тестов, тесты, тесты на Delphi