![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, помогите пожалуйста, нужно записать из одного edit Название вопроса, из четырех edit записать в ответе, и из последнего edit нужно записать правильный ответ чтобы вот так вышло в текстовом файле:
(347) Когда проверяется герметичность газового оборудования автомобиля? 1=В сроки, предусмотренные руководствами по техническому обслуживанию и эксплуатации газобаллонных автомобилей. 0=При появлении сильного запаха газа. 0=При увеличенном километровом расходе газа. 0=Через 20 000 км пробега, но не реже 1 раз в 6 месяцев. |
#2
|
||||
|
||||
![]() Вы хотите сделать так, чтоб в последнем Edit'e вводить номер правильного ответа. Так как судя по вашему примеру ответ с единичкой в начале это верный. Или вы сразу определяете верный ответ. Судя по вопросу надо 6 полей ввода, а судя по строкам в файле 5. Если требуется передать просто содержимое полей ввода в файл, то это просто:
Код:
procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; begin AssignFile(F, 'd:\test.txt'); Rewrite(F); // если создать файл // Append(F); // если необходимо дописать в файл Writeln(F, Edit1.Text); Writeln(F, Edit2.Text); Writeln(F, Edit3.Text); Writeln(F, Edit4.Text); Writeln(F, Edit5.Text); CloseFile(F); end; Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |