Проблема с вводом данных в файл.

[Bilargo]

Всем доброго времени суток, в общем делема такая, пишу программу, которая должна сохранять введенные на форму данные в текстовый документ, но выдает ошибку не совпадения типов.
И ещё как выводить текущую дату из компонента MonthCalendar?
Мне необходимо, чтобы текущая дата, тоже присутствовала в текстовике.

procedure TForm1.btn1Click(Sender: TObject);
var
txt: file of Char;
begin
AssignFile(txt,'c:\txt.txt' );
write(txt, edt1.text); // Вот здесь ошибка ругается, насчет Char u TCaption.
end;

[Bilargo]

Заменил тип txt на textfile всё запускается, но при попытке запуска приложения вылетает ошибка.
Debugger Exception Notification

[Пепел Феникса]

var txt: textfile
begin
AssignFile(txt,'c:\txt.txt' );
rewrite(txt);//очищаем
write(txt, edt1.text);
CloseFile(txt);//закрываем файл.

[Bilargo]

Ммм...спасибо с этим разобрался, а теперь вот пытаюсь добавить вывод из компонента MonthCalendar.
write(txt, cal1.date, edt1.text); // При просмотре файла отображается, ряд 16тиричных значений и на конце то значение, которое указываем в edt1.text

[Пепел Феникса]

cal1.date

заменить на

DateToStr(cal1.date)

пишете то 8байт, а не текст

[Bilargo]

Ммм.... аз нет) всё сам дописал) простите за беспокойство поэтому поводу)

[Bilargo]

Сообщение от Пепел Феникса

cal1.date

заменить на

DateToStr(cal1.date)

пишете то 8байт, а не текст

Да, спасибо я это понял)

[Bilargo]

Ммм... есть ещё 1 вопрос, как предусмотреть возможность отсутствия файла? Т.е. если файл для записи отсутствует, появляется сообщение.

[Пепел Феникса]

if  FileExists(<имя файла>) then //файл есть
 else //файла нет

кстати если нужно не очищать файл то reset а не rewrite

[Bilargo]

Спасибо за помощь вроде все вопросы решил))