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

[Huruffus]

Аватар, нет, потому что если поставить туда Closefile то появится ошибка при запуске программы

[Аватар]

При чем здесь Closefile? FileCreate возвращает Handle созданного файла и закрывать его нужно процедурой FileClose с использванием этого Handle

[Huruffus]

спасибо. буду разбираться

[Huruffus]

Скажите пожалуйста, почему переменная "FileName", оказывается пустой, когда я пытаюсь её вывести в последней строчке?

//inicializaciya///////////////////////////////////////////////
procedure init();                                           
begin
  if fileExists('C:\book\info.txt') then
  begin
    assignfile(b,'C:\book\info.txt');
    reset(b); 
    readln(b,FileName);
    closefile(b);
  end
  else
  begin
    HandleI:=FileCreate('C:\book\info.txt');
    FileClose(HandleI);

  end;
                                                            
  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);
    Form1.Edit1.Clear;
    Form1.Edit1.Text:=FileName;                                            
  end                                                       
  else                                                      
    HandleF:=FileCreate('C:\book\'+FileName+'.txt');
    FileClose(HandleF);
    Form1.Edit1.Text:='Novaya'+FileName+' zametka';  //ne vidit peremennuyu "FileName"                
                                                            
end;                                                        
//////////////////////////////////////////////////////////////

[Stilet]

А собственно че она должна быть полной, если у тебя скорее всего существует файл C:\book\info.txt ?

[Huruffus]

в условиях, когда существует info.txt (содежимое = FileName) и не важно существует или нет FileName.txt

не читает FileName из info.txt

[Stilet]

Тип файла какой?
Ты поставь туда точку прерывания, проверь что присваивается этой переменке при чтении.

[Huruffus]

Нашёл! Во втором цикле после else не поставил begin и end.

[саша40]

Да, что вы паритесь в Windows давно всё есть(если надо переменовать просто файл):

name:='первое';  //в пример
name2:='второе';
RenameFile(PChar('C:\book\'+name+'.txt'), PChar('C:\book\'+name2+'.txt'));
ShowMessage('Готово');

и что вы паритесь.

[Huruffus]

Сообщение от саша40

Да, что вы паритесь в Windows давно всё есть(если надо переменовать просто файл):
и что вы паритесь.

а к чему это?



Как узнать в какой директории лежит запущенный exe файл?
Чтобы программа искала файлы в том каталоге, где лежит exe файл.

Уже не надо.Сообразил