VPF::Rename - Форум программистов

neic

Дата 27.12.2009, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Делфи не даёт переименовать файл, вроде по примеру всё правильно сделал:

Код


var
    f,f1: TextFile; // файл — база данных
      s,s1,s2,s3,s4,s5,fname,fname1:string;
    i,j:integer;
begin
  fname:='project.txt';
  AssignFile(f, fname);

  fname1:='project1.txt';
  AssignFile(f1, fname1);

  rewrite(f1);

  if fileexists(fname) then
  begin
      Reset(f);

    i:=0;
    j:=1;

      while not Eof(f) do
      begin
          Readln(f, S);
      Readln(f, S1);
      Readln(f, S2);
      Readln(f, S3);
      Readln(f, S4);
      Readln(f, S5);

      If s = label1.Caption then
      begin
        s4:=edit2.text;
        s5:=edit3.text;
      end;

      writeln(f1, s);
      writeln(f1, s1);
      writeln(f1, s2);
      writeln(f1, s3);
      writeln(f1, s4);
      writeln(f1, s5);
      end;

  closefile(f1);
  closefile(f);
  end;

  Rename(f1, fname);
  DeleteFile (fname);

Данкинг

Дата 27.12.2009, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Зачем так сложно? Переименовывай через RenameFile.

--------------------

There's nothing left but silent epitaphs.

neic

Дата 27.12.2009, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »