|  | 
 
 | 
| 
 | |||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
|  | 
|  | Опции темы | Поиск в этой теме | Опции просмотра | 
| 
			 
			#1  
			
			
			
			
		 | |||
| 
 | |||
|  Код для делфи по сохранению в текстовый файл Здравствуйте, нужно написать код для делфи Суть такова, есть списк с наименования, выбираю из него потом параметр и нажимаю окей и он сохраняет это в текстовый файл с датой и временем, и каждый раз запись добавляется а старая остаётся, помогите как сделать) | 
| 
			 
			#2  
			
			
			
			
		 | ||||
| 
 | ||||
|   Ну, если прям совсем просто и в лоб, то: Код: procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile; // Файловая переменная
begin
  AssignFile(F, 'D:\OutFile.txt'); // Связывание файловой переменной с файлом
  try
    Append(F); // Если файл есть, то открываем его на добавление данных
  except
    Rewrite(F); // Если файла нет, то создаём его
  end;
  Writeln(F, DateTostr(Now) + ' ' + TimeToStr(Now) + ': ' + ComboBox1.Text + ' = ' + ComboBox2.Text); // Пишем информацию в файл
  CloseFile(F); // Обязательно закрываем файл
end; |