xFiles, Pascal - rextester

xFiles

Program files;
Const
  MAX = 40;
  grava = 'file.txt';
  le = 'file.txt';
  spc = chr(0);

Var
  gArq : Text;
  lArq : Text;
  x, y, z: array [1..MAX] of Char;
  w : Integer;

nome : array [1..MAX] of Char;
  fone : array [1..MAX] of Char;
  mail : array [1..MAX] of Char;
  idade : Integer;

i : Integer;

{ ##### Procedures #####}
Procedure border;
var
  i : Integer;
Begin
  writeln;
  for i := 0 to 30 do
    begin
      write('-');
    end;
  writeln;
End;

Procedure initArr (Var arr1 : array of Char; Var arr2 : array of Char; Var arr3 : array of Char);
var
 i : Integer;
Begin
  for i := 0 to MAX do
  begin
    arr1[i] := spc;
    arr2[i] := spc;
    arr3[i] := spc;
  end;
End;

{ ##### Functions ##### }
Procedure cadastra (Var arr1 : array of Char; Var arr2 : array of Integer; Var arr3 : array of Char; Var arr4 : array of Char);
var
 i, j : Integer;
 s1,s2,s3 : array [1..MAX] of Char;
 escolha : Char;
Begin
 initArr (arr1,arr3,arr4);
initArr (s1,s2,s3);
 i := 0;
 repeat 
  border;
  writeln ('+ Cadastra Novo Contato: ');
  border;
  writeln (' > Digite o Nome: ');
  readln (s1);
  for j:= 0 to length (s1) do
   begin
    arr1[j] := s1[j];
   end;
  writeln (' > Digite a Idade: ');
  readln (arr2[i]);
  writeln (' > Digite o Fone: ');
  readln (s2);
  for j:= 0 to length (s2) do
   begin
    arr3[j] := s2[j];
   end;
  writeln  (' > Digite o E-mail: ');
  readln (s3);
  for j:= 0 to length(s3) do
   begin
    arr4[j] := s3[j];
   end;
  writeln;
  writeln (' ** Novo Contato Salvo c/ Sucesso!');
  border;
  i := i + 1;
  writeln (' > Deseja Adicionar Outro Contato?');
  readln (escolha);
  until escolha <> 'q';
End;

{ ++++++++++++ Main Begin ++++++++++++ }
Begin

initArr (nome, fone, mail);
  i := 0;
  { nome := 'david';
  idade := 36;
  fone := '91 9 8874-8939';
  mail := 'dvdaguiar@gmail.com';}

border;
  write ('Arquivos em Pascal :)');
  border;
  writeln;
  write ('Criando novo arquivo .txt...');
  Assign (gArq, grava);
  Rewrite (gArq);
  cadastra (nome, idade, fone, mail);
  writeln(nome, idade,fone,mail);
  writeln(gArq,nome,' ',idade,' ',fone,' ',mail);
  close (gArq);
  border;
  write ('Arquivo criado com sucesso!');
  border;

write ('Lendo arquivo .txt...');
  Assign (lArq, le);
  Reset (lArq);
  while not eof (lArq) do
  begin
    border;
    readln (lArq, x, w, y, z);
    writeln ('Nome: ', x);
    writeln ('Idade: ', w);
    writeln ('Fone: ', y);
    write ('E-mail: ', z);
  end;
  close (lArq);
  border;
  write ('Arquivo lido com sucesso!');
  border;
  writeln;
End.


run \| edit \| history \| help	0