Тема: Файли(Делфі)
Всім доброго дня!
Є програмка - має два поля вводу - Edit1, Edit2, і одну кнопку. Користувач вводе дату та температуру, а програма зберігає його у файл(при цьому якщо файлу не існує, то вона створює його).
Компіляцію пройшла успішно. Хоч файл і створює, але нічого в нього не записує і при закритті програми файл не закриває, а повинно це робити.
Пробував зберігати і в .db i .txt .
Код:
procedure TForm1.FormActivate(Sender: TObject);
const
DBNAME= 'D:\Документы\МОЇ ПРОГРАММИ\Delfi\Вывод у файл(погода)\pogoda.txt';
var
db: TextFile;
begin
AssignFile(db, DBNAME);
{$I-}
Append(db);
If (IOResult=0) then
begin
Edit1.Text:= DateToStr(Date); // получить текущюю дату
Edit2.SetFocus; // перевести курсор в поле температури
end
else
begin
Rewrite(db);
If (IOResult<>0) then
begin
{делаем неактивними поля ввода и кнопку и выводим сообщение}
Edit1.Enabled:= False;
Edit2.Enabled:= False;
Button1.Enabled:= False;
ShowMessage('Ошибка создания ' + DBNAME);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
DBNAME= 'D:\Документы\МОЇ ПРОГРАММИ\Delfi\Вывод у файл(погода)\pogoda.txt';
var
db: TextFile;
begin
AssignFile(db, DBNAME);
If (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Ошибка ввода!' + #13 + 'Все поля должны быть заполнены.')
else
writeln(db, Edit1.Text, ' ', Edit2.Text);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
const
DBNAME= 'D:\Документы\МОЇ ПРОГРАММИ\Delfi\Вывод у файл(погода)\pogoda.txt';
var
db: TextFile;
begin
AssignFile(db, DBNAME);
CloseFile(db); // закрываем фаил при закритии формы
end;
Допоможіть, будь ласка.