Доброго времени суток! Помогите, пожалуйста, найти ошибку!
Есть База данных, в которой ключевое поле - Kod, база просматривается в виде одной записи с помощью DBNavigatora. И есть поле Memo, которое обновляется после нажатия клавиш вперед/назад (подгружаются файлы с названием = то, что в Kod). Возникла проблема при редактировании.
Суть в следующем: если кликнули по Memo, активизируется кнопка, по нажатию на которую:
Код:
u:=FmMain.DataSource1.DataSet.FieldValues['Kod'];
if FileExists('D:\1\text\'+ u +'.txt') then
else FileCreate('D:\1\text\'+ u +'.txt');
Memo1.Lines.SaveToFile('D:\1\text\'+ u +'.txt');
ShowMessage('Примечание успешно обновлено!');
В этом случае, если файл существовал, то перезаписывается отлично, проблем нет. Но если не существует, то прекрасно создается и вылетает с ошибкой 103 - файл не был открыт. Переписываю код:
Код:
u:=FmMain.DataSource1.DataSet.FieldValues['Kod'];
if FileExists('D:\1\text\'+ u +'.txt') then begin
Memo1.Lines.SaveToFile('D:\1\text\'+ u +'.txt');
end
else begin
FileCreate('D:\1\text\'+ u +'.txt');
AssignFile(f, 'D:\1\text\'+ u +'.txt');
Rewrite(f);
Memo1.Lines.SaveToFile('D:\1\text\'+ u +'.txt');
CloseFile(f);
end;
Появляется ошибка 'I/O Error 32'.
Помима Rewrite пробовала Append, не помогает...
f - типа текстовый файл, u - string