![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | 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;  |