• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

pipasmeimoa

Erro a apagar ficheiro... ajuda é urgente

2 mensagens neste tópico

procedure Apagar;

var k:char;

    n:integer;

begin

  if not ExisteFicheiro then

    begin

      writeln('Ficheiro inesistente');

      write('Tecle ENTER para menu');

      end

  else

    begin

      reset(fich1);

      writeln('                        Efectuar reset? s/n'); readln(n);

      readln;

      writeln('');

          seek(fich1,n-1);

      writeln('                    Deseja mesmo fazer reset? : ');

      writeln('                    |--------------------------|');

      writeln('                    |        [n] ou [n]        |');

      writeln('                    |--------------------------|');

      repeat

              readln(k)

              until K in ['S','s' , 'N','n'];

              writeln;

              if K = 'S' then

      begin

          seek(fich1,filepos(fich1)-1);

          write(fich1,client);

      end;

      close(fich1);

  end;

end;

       

Alguem me pode dizer poque é k este procedur ta a dar erro??

E urgente a vossas ajuda é pa um trabalho de fim de modulo para apresentar amanha.. help me.. :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E qual é o erro que te dá?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora