Создание теста

← →
Jackson (2003-09-22 22:27) [0]

Мастера,помогите(плиз)!Есть такая задача:
мне надо сделать тест.На первой странице я хочу разместить строку: Введите вашу фамилию.После нажатия на кнопку переходим на новую форму и фамилия сохраняется в файл.После теста открываем файл и смотрим результат.
Я новичок и для меня это оказалось проблемой:)))Плиз,хэлп!!!

← →
Delphin (2003-09-22 22:39) [1]

Можешь это сохранить в IniFile
Для этого в Uses добавь IniFiles;
var
LN:TIniFile;
IniFileName:string;
SF:File;
В form Create рописывай примерно это:
IniFileName := ExtractFileDir(ParamStr(0)) + "\Имя файла.ini"; //эта строка позваляет определить директорию, где создавать файл
AssignFile(SF,IniFileName);
If FileExists(IniFileName) then Begin
LN:=TiniFile.Create(IniFileName);
IF LN.ValueExists("Last Name","Value") Then
Edit1.Text:= LN.ReadString("Last Name","Value",Edit1.Text);
End
Else
LN:=TiniFile.Create(IniFileName);
В form Destroy ( или под кнопку "сохранить" ) прописывай это:
LN.WriteString("Last Name","Value",Edit1.Text);
LN.UpdateFile;
LN.Free;

← →
Ahmad K (2003-09-23 00:19) [2]

Ооо... чувсвую с тестом ты попаришься не на шутку. если конечно все вопросы теста определены то там можно все очень легко сообразить.
У меня задача была круче надо было сделать "универсальный тест", т.е. все как в обычных тестах, только с той разницей что базы вопросов можно было использовать разные или менять и т.д.
В итоге решение было найдено покопавшись в базах данных а именно в парадоксе. Только в итоге вышло что тест уже не нужен, вот и остался весь труд не оцененным :(

← →
Фагот (2003-09-23 10:57) [3]

> Ahmad K

Аналогично! Плюс моя прога может переносить вопрос из одной базы в другую. Очень мучался referential Integrity. Как ты его реализовывал?

← →
NAlexey (2003-09-23 11:01) [4]

>Delphin ©
Ты бы хоть код отформатировал чтоли, а то автор написал же что новичек. Испортишь кадры, подумает что так и надо писать. А ведь комуто может быть придется в его творениях разбираться...

← →
Плохиш_ (2003-09-23 11:09) [5]

>NAlexey © (23.09.03 11:01) [4]

Нет, нет, надо было в одну строчку. Пока отформатирует, уровень свой чуть чуть повысит ;-)

← →
Jackson (2003-09-30 22:10) [6]

Салют,мастера!!!У меня опять возникла проблема..Надеюсь Вы мне поможете.
У меня есть семь форм:6 форм с вопросами и седьмая результат. Отвечая на каждый вопрос надо ввести букву в поле EDIT.После чего нажимаем на следующий вопрос и переходим на форму со вторым вопросом.При этом переменной d присваеваем значение Edit1.Text. И так соответственно остальные вопросы.В форме "результат" присваеваем Label1.Caption значение d+e+..+t.Если ответы на все вопросы были правильные,то в Label1.Caption должно появиться слово.Но у меня ничего не появляется.В каждой форме я описал переменные как String.Подскажите,что я сделал неправильно.

← →
ЮЮ (2003-10-01 06:46) [7]

>В каждой форме я описал переменные как String
это есть 6 разных переменных, которые надо "собрать вместе"

или на каждой форме добираться до формы результата:
ResultFrm.Label1.Caption := ResultFrm.ResultFrm.Label1.Caption + Edit1.Text

или на форме результата добираться до всех форм:
Label1.Caption := Q1Frm.Edit1.Text + ... + Q6Frm.Edit1.Text;

← →
Jackson (2003-10-02 22:08) [8]

Привет,мастера!!!У меня опять проблема:
Хочу сделать оценки.Пишу:
If Form1.Edit1.Text = "Д" then
x:= x+2;
Label4.Caption:= x;
А он мне говорит:
[Error] Unit7.pas(39): Incompatible types: "String" and "Real"
В VARе я описал х:Real;
В чём я ошибся?

← →
Anatoly Podgoretsky (2003-10-02 22:13) [9]

Или в выборе професси или в том, что не читаешь книги по теории.

← →
ЮЮ (2003-10-03 03:59) [10]

Incompatible types: "String" and "Real"
Несовместимые типы: "Строка" и "Вещественное".

Для преобразования Вещественного в другие типы смотри функции FloatTo...

← →
Zergling (2003-10-03 06:29) [11]

>> If Form1.Edit1.Text = "Д" then

И желательно регистр букв приводить либо к строчным, либо к прописным. И проверку на ввод набров символов русского алфавита :), а то на грабли встанешь.

Создание теста Найти похожие ветки