[Shoni]

Доброго времени суток! Помогите, пожалуйста, найти ошибку!

Есть База данных, в которой ключевое поле - 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

[lmikle]

Убирай свой if. Он не нужен. Savetofile сама создаст файл, если нужно.

[Shoni]

Ступила
Спасибо огромное! Заработало!