unit Variable;
interface
var
ID_Testing, // идентификатор эксперимента
ID_Test, // идентификатор теста
ID_Respondent, // идентификатор респондента
ID_Question, // идентификатор вопроса
ID_Answer : integer; // идентификатор ответа
S, // путь к файлу запуск
SDB : // путь к базе данных
String;
Pass : Boolean; // доступ в режим психолога
implementation
end.
interface
var
ID_Testing, // идентификатор эксперимента
ID_Test, // идентификатор теста
ID_Respondent, // идентификатор респондента
ID_Question, // идентификатор вопроса
ID_Answer : integer; // идентификатор ответа
S, // путь к файлу запуск
SDB : // путь к базе данных
String;
Pass : Boolean; // доступ в режим психолога
implementation
end.
Соседние файлы в папке Курсовая ( Тест Томоса и узнавание фигур )