Vaguinho
(usa Ubuntu)
Enviado em 22/11/2016 - 20:48h
Como seria o procedimento para pesquisar e excluir um dado?
program AGENDATXT;
uses
Crt;
var
ARQTXT : text;
NOME_ARQUIVO: string;
NOME : string[40];
TELEFONE : string[8];
TECLA : char;
OPCAO : char;
{*** Rotinas de Visualizacao ***}
procedure CENTER(MENSAGEM : string);
var
TAMANHO : integer;
begin
TAMANHO := 40 + length(MENSAGEM) div 2;
writeln(MENSAGEM:TAMANHO);
end;
procedure WRITEXY(X, Y : byte; MENSAGEM : string);
begin
gotoxy(X, Y); write(MENSAGEM);
end;
procedure LINE;
var
I : byte;
begin
for I := 1 to 80 do
write(#205);
end;
{*** Rotinas de Manipulacao de Arquivos ***}
procedure ARQUIVO;
begin
clrscr;
line;
center('Criacao de Arquivo');
line;
writeln;
center('Informe o nome do arquivo TXT a ser criado:');
readln(NOME_ARQUIVO);
{Completando o nome informado pelo usuário com a extensão txt}
NOME_ARQUIVO := NOME_ARQUIVO + '.txt';
{Associando a variavel a um arquivo texto}
assign(ARQTXT, NOME_ARQUIVO);
{Criando o arquivo Texto}
rewrite(ARQTXT);
gotoxy( 1,12); center('Arquivo foi criado');
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure CADASTRA;
begin
clrscr;
line;
center('Cadastramento de Registro');
line;
append(ARQTXT);
writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME);
writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE);
writeln(ARQTXT, NOME);
writeln(ARQTXT, TELEFONE);
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
procedure EXIBIR;
var
LINHA : byte;
begin
clrscr;
line;
assign(ARQTXT,NOME_ARQUIVO);
center('Apresentacao de Registros');
line;
LINHA := 5;
reset(ARQTXT);
while not eof(ARQTXT) do
begin
readln(ARQTXT, NOME);
readln(ARQTXT, TELEFONE);
gotoxy( 5,LINHA); write(NOME);
gotoxy(50,LINHA); write(TELEFONE);
LINHA := LINHA + 1;
end;
writexy(25,24,'Tecle algo para voltar ao menu');
TECLA := readkey;
close(ARQTXT);
end;
{*** Programa Principal ***}
begin
OPCAO := '0';
while (OPCAO <> '4') do
begin
clrscr;
line;
center('Menu Principal');
line;
gotoxy(28, 6); write('1 ........ Criar arquivo');
gotoxy(28, 8); write('2 ............ Cadastrar');
gotoxy(28,10); write('3 ..... Exibir registros');
gotoxy(28,12); write('4 ...... Fim de Programa');
gotoxy(28,16); write('Escolha uma opcao ....: ');
readln(OPCAO);
if (OPCAO <> '4') then
case OPCAO of
'1' : Arquivo;
'2' : Cadastra;
'3' : Exibir;
else
gotoxy(27,24); writeln('Opcao invalida - Tecle algo');
OPCAO := readkey;
end;
end;
end.