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;