Проблема с пеименованием текстогого файла

[Huruffus]

Пишу программу "записная книжка".

Хочу, чтобы файл переименовывался когда вводишь в поле Edit.
Но дело в том, что вылетает вот такая вот ошибка (смотрим картинку).
Помогите пожалуйста разобраться в чём ошибка.

Текст процедуры переименования такой:
прошу прощения, варианта подсветки кода для Delphi не нашёл

 Edit1.Enabled:=true;
  name:=Edit1.text;
  Assignfile(a, 'C:\book\'+name+'.txt');
  Rename(a,name);
  closefile(a);

Весь код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:textfile;
  name:string;

implementation

{$R *.dfm}

////////////////////////////////////////////////
//сохранение файла при нажатии на любую кнопку//
procedure save_progress();                    //
begin                                         //
  assignfile(a, 'C:\book\'+name+'.txt');      //
  rewrite(a);                                 //
  write(a,Form1.Memo1.text);                  //
  closefile(a);                               //
end;                                          //
////////////////////////////////////////////////

//инициализация///////////////////////////////////////////
procedure init();                                       //
var                                                     //
  buf:string[80];                                       //
  a:textfile;                                           //
begin                                                   //
  name:='1';                                            //
  Form1.Edit1.Text:='Новая';                            //
  Form1.Memo1.Clear;//чищу мемо                         //
  if fileExists('C:\book\'+name+'.txt') then //ищу файл //
  begin                                                 //
    Assignfile(a, 'C:\book\'+name+'.txt'); //если нашёл //
    Reset(a);                                           //
    While not eof(a) do                                 //
      begin                                             //
        Readln(a,buf);                                  //
        Form1.Memo1.Lines.Add(buf);                     //
      end;                                              //
    Closefile(a);                                       //
  end                                                   //
  else                                                  //
  begin  //если не нашёл создаёт новый                  //
    FileCreate('C:\book\'+name+'.txt');                 //
   // Assignfile(a, 'C:\book\'+name+'.txt');            //
    Closefile(a);                                       //
  end;                                                  //
end;                                                    //
//////////////////////////////////////////////////////////

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  save_progress();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 init();
end;


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Edit1.Enabled:=true;
  name:=Edit1.text;
  Assignfile(a, 'C:\book\'+name+'.txt');
  Rename(a,name);
  closefile(a);
end;

//создание нового файла
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//не дописал ещё
end;

end.

[Serge_Bliznykov]

о! похоже, Вам удалось наступить на особые грабли!!
вместо Name возьмите любой другой идентификатор. например

var NewFileName : string;
begin
  Edit1.Enabled:=true;
  NewFileName:=Edit1.text;
  Assignfile(a, 'C:\book\ЛяляФа.txt');
  Rename(a,NewFileName);
  closefile(a);
end;

p.s. разумеется, код дан исключительно для примера. Доработайте его под себя.

[Huruffus]

охоу! "name" это некая зарезервированная переменная?

Большое спасибо! 2 дня не мог ничего поделать

[Huruffus]

Проблемы продолжаются.

в том случае, если файл не создан: запускаем программу, создаётся пустой файл 1.txt. Пытаемся вводить текст, но появляется ошибка (картинка) и в коде программы подсвечивается синей полосой rewrite(a) (картинка).

а если файл создан, то всё гладко сохраняется.

Скажите пожалуйста в чём дело?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:textfile;
  FileName:string;
  OldName:string;
  b:textfile;
  info_filename:string;
  buf:string[80];

implementation

{$R *.dfm}

/////////////////////////////////////////////////////////////////////
//Ïåðåèìåíîâàíèå ôàéëà                                    //
procedure rename_file();                                           //
begin                                                              //
  Form1.Edit1.Enabled:=true;                                             //
  OldName:=FileName;                                               //
  FileName:=Form1.Edit1.text;                                            //
  Renamefile('C:\book\'+OldName+'.txt','C:\book\'+FileName+'.txt');//
end;                                                               //
/////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////
//ñîõðàíåíèå ôàéëà ïðè íàæàòèè íà ëþáóþ êíîïêó//
procedure save_progress();                    //
begin                                         //
  assignfile(a,'C:\book\'+FileName+'.txt');   //
  rewrite(a);                                 //
  write(a,Form1.Memo1.text);                  //
  closefile(a);                               //
end;                                          //
////////////////////////////////////////////////

//èíèöèàëèçàöèÿ///////////////////////////////////////////////
procedure init();                                           //
begin                                                       //
  FileName:='1';                                            //
  Form1.Edit1.Text:='Íîâàÿ';                                //
  Form1.Memo1.Clear;//÷èùó ìåìî                             //
  if fileExists('C:\book\'+FileName+'.txt') then //èùó ôàéë //
  begin                                                     //
    Assignfile(a, 'C:\book\'+FileName+'.txt'); //åñëè íàø¸ë //
    Reset(a);                                               //
    While not eof(a) do                                     //
      begin                                                 //
        Readln(a,buf);                                      //
        Form1.Memo1.Lines.Add(buf);                         //
      end;                                                  //
    Closefile(a);                                           //
  end                                                       //
  else                                                      //
    FileCreate('C:\book\'+FileName+'.txt');                 //
                                                            //
end;                                                        //
//////////////////////////////////////////////////////////////

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  save_progress();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 init();
end;

//ñîçäàíèå íîâîãî ôàéëà
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//íå äîïèñàë åù¸
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  rename_file();
end;

//ñîõðàíåíèå èìåíè ïîñëåäíåãî ôàéëà ïðè çàêðûòèè äëÿ ïîñëåäóþùåãî îòêðûòèÿ
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if fileExists('C:\book\info_'+filename+'.txt') then
  begin
    assignfile(b,'C:\book\info_'+filename+'.txt');
    rewrite(b);
    write(b,Edit1.text);
    closefile(b);
  end
  else
  begin
    Filecreate('C:\book\info_'+filename+'.txt');
    assignfile(b,'C:\book\info_'+filename+'.txt');
    rewrite(b);
    write(b,Edit1.text);
    closefile(b);
  end;
end;

end.

[Stilet]

Похоже на то что файл уже кем-то открыт...
Ты до этого кода в программе нигде файл не открываешь?

[Huruffus]

нет. проверял уже.
closefile есть везде.

[Stilet]

write(a,Form1.Memo1.text);

А замени на всякий случай на writeln, все равно ты работаешь с текстовыми файлами.
и еще такой вариант:

procedure save_progress();                    //
begin                                         //
 with TStringList.Create do begin
  LoadFromFile('C:\book\'+FileName+'.txt');
  append(Form1.Memo1.text);
  SaveToFile('C:\book\'+FileName+'.txt');
  Free;
 end; 
end;

как по мне он лучше.
Хотя в твоем случае LoadFromFile (судя по твоему коду) писать не надо, т.е. не надо делать загрузку файла, перезаписывая его каждый раз

[Huruffus]

ваш вариант не работает тоже. Пишет: нет доступа к файлу.

[Stilet]

нет доступа к файлу.

Ну тогда ищи, кто у тебя этот файл открыл и не пускает )

[Аватар]

Смотри процедуру Init. Если файл существует, то он закрывается, если нет - создается и остается открытым. Не в этом ли вся проблема?