Ir ao conteúdo
  • Cadastre-se

tifauchiha

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. Olá pessoal, estou tentando fazer a exclusão de um ítem cadastrado no registro, porém não estou conseguindo, já tentei várias maneiras e nada de resolver esse problema... Será que alguém poderia me ajudar? Todas as procedures de exclusão que tentei não excluí o ítem da listagem geral (opção 2 do menu); Segue o código: procedure excluir;varresp1,resp2: char;name: string [20];begin repeat clrscr; writeln ('Excluir registro'); writeln ('Informe o nome:'); read(name); seek(arquivo1,0); while ((reg.nome <> name) and (not eof(arquivo1))) do begin read(arquivo1,reg); if(reg.nome=name) then begin writeln('Nome: ' , reg.nome); writeln('Idade: ' , reg.id); writeln('RG: ' , reg.rg); writeln('CPF: ' , reg.cpf); writeln('Deseja Excluir (s/n)?'); readln (resp1); if (resp1 = 's') then reg.nome:= '*deletado*'; end; //ifend; //while write('Excluir outro registo(s/n)?'); readln (resp2); write(arquivo1,reg);//tentandountil resp2='n';end;

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...