3 / 3 / 2
Регистрация: 12.10.2012
Сообщений: 21
1

Не записывается в текстовый файл информация, ошибок компилятор не выдает

23.10.2012, 21:39. Показов 602. Ответов 2
Метки нет (Все метки)

Здравствуйте, нужно записать текущую дату компьютера в текстовый файл.
Delphi
1
2
3
4
5
6
7
8
9
var
  MyFile: TextFile;
  MyDate: Real;
begin
  AssignFile(MyFile,'myfile.txt');
  Append(MyFile);
  MyDate := Date;
  Write(MyFile, Date);
end.
Где ошибка? Компилируется без ошибок, программа запускается, но в файл ничего не записывается. Подскажите пожалуйста опытные люди.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2012, 21:39
Ответы с готовыми решениями:

Информация не записывается в текстовый файл
вот код. не срабатывает запись в файл package pet; import java.util.Scanner; import...

не записывается в БД и не выдает ошибок - прошу совет
есть код добавления в друзья, в общем проблема простая - запись в базу не добавляется <?php...

Компилятор выдает кучу ошибок
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Компилятор выдает кучу ошибок
Здравствуйте!! начал изучать с#. честно переписал программу с книги Троелсена namespace...

2
13087 / 5868 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
23.10.2012, 21:47 2
CloseFile() нужно вызвать. При этом данные файлового буфера записываются на диск в файл. Без вызова CloseFile() данные файлового буфера просто пропадают.
---
Правильнее действовать надо так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  MyFile: TextFile;
  FileName : String;
  MyDateTime: TDateTime;
begin
  //Полное имя файла, располагающегося в той же папке, где лежит исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + 'myfile.txt';
  AssignFile(MyFile, FileName);
  if FileExists(FileName) then
    Append(MyFile)
  else
    Rewrite(MyFile);
  MyDateTime := Now;
  Write(MyFile, MyDateTime);
  CloseFile(MyFile);
end.
1
3 / 3 / 2
Регистрация: 12.10.2012
Сообщений: 21
23.10.2012, 22:00  [ТС] 3
Mawrat, большое спасибо. А я все гадал куда пропадает информация.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2012, 22:00
Помогаю со студенческими работами здесь

Информация не записывается в файл
connect(ui->pushButton, SIGNAL(clicked()), this, SLOT(getData())); void MainWindow::getData() {...

Не записывается информация в файл
не могу понять в чем ошибка, генирируеться исключение int row = (int)dataGridView1.RowCount; //...

Информация не записывается в файл
#include <iostream> #include <fstream> #include <conio.h> #include <string> using namespace...

Не записывается информация в файл
Задание таково: #include<stdio.h> #include<stdlib.h> #include<stdio.h> #include<string.h>...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru