работа с файлами, помогите курсовая горит Опции

[-student-]

Написать программу, позволяющую по выбору создавать, находить, переименовывать, дополнять, читать, удалять файл и записывать информацию в файл

помогите плиз, у меня полдная муть получается , кроме процедур создания и удаления файла другие не работают,а процедура дополнения файла вообще не получается

вот моя прога:

 uses dos,crt;

   var
    infile:text;
    vibor:char;


  procedure makefile;
   var

    i,maxn,m:integer;
    begin
     clrscr;
      assign(infile,'c:\file');
      rewrite(infile);
      writeln('сколько вводится символов');
      readln(maxn);
      write(infile,maxn);

      for i:=1 to maxn do
       begin
        read(m);
        write(infile,m);
        end;
        close(infile);
        end;

        procedure chtenie;

        var

   i:integer;
    a:array[1..100] of integer;



        begin
          assign(infile,'c:\file');
      reset(infile);
       for i:=1 to 5 do
      while not(eof(infile)) do
      begin
        read(infile,a[i]);

      writeln('k=',a[i]);
      close(infile);
      end;
      end;

      procedure pename;
       var
       newname:string;

        begin
          assign(infile,'C:\file');
          reset(infile);
          readln(newname);
          rename(infile,newname);
          close(infile);
          end;

        procedure udalenie;

          begin
          assign(infile,'c:\file');
          reset(infile);
          close(infile);
          erase(infile);
          end;

          procedure found;

           begin
            assign(infile,'c:\file');
            fsearch('file','c:\');
            end;



     begin

      makefile;
      writeln('созданный файл - c:\file');

      writeln('переименовать-1;найти-2;дополнить-3;удалить-4;читиать-5  файл');
      readln(vibor);

      case vibor of
      '1':       pename;
      '2':       found;
      '4':       udalenie;
      '5':       chtenie;
      end;


      readln;




     end.

теги...

Сообщение отредактировано: Oleg_Z - 15.05.2005 21:50

[volvo]

Ребята, вы что творите?
Процедуру Rename что, просто так включили в Паскаль? Не надо ничего изобретать, все проще гораздо !!!

procedure myRename;
var newname:string;
begin
  assign(infile,'C:\file');
  readln(newname);
  rename(infile,newname);
end;

-student-, только учти, что Rename будет работать корректно только в пределах одного и того же диска...

[NightPaladin]

Ребята, вы что творите?
Процедуру Rename что, просто так включили в Паскаль? Не надо ничего изобретать, все проще гораздо !!!

Извеняюсь - это я посмотрел как сдела студент ирешил, что "мы пойдём другим путём'' :D . И начал вот это вот - из одного читаем, создаём новый с новым именем - всё в него копируем и старый удаляем. Мда рациональностью не блещет...