|
|
Регистрация | << Правила форума >> | 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; Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |