Pascal-Agenda

[h0oke]

Hola aqui les dejo una parte de la agenda que estoy haciendo:

Código (Pascal) [Seleccionar] Expandir


program Untitled;

uses
    crt;
type
    Persona=
    record
          Nombre:string[10];
          Telefono:string[10];
    end;
var
   option:integer;
   Friend:Persona;
   Fichero:file of Persona;
   nameFile:string;
   buscado:integer;
   adato:Persona;

begin
repeat
//Menu
clrscr;
nameFile:='c:\AGENDA.txt';
writeln('1) Agregar persona');
writeln('2) Buscar persona');
writeln('3) Salir de agenda');
//Validar opcion
          repeat
               writeln('Elige opcion:');
               readln(option);
          until (option>0) and (option<=3);
          case option of
               1:
                 begin
                      writeln('AGREGANDO PERSONA');
                      writeln('INGRESA NOMBRE:');
                      readln(Friend.Nombre);
                      writeln('INGRESA TELEFONO:');
                      readln(Friend.Telefono);
                      Assign(Fichero,nameFile);
                      Reset(Fichero);
                      Write(Fichero,Friend);
                      Close(Fichero);
                 end;
               2:
               begin
                    writeln('BUSCANDO');
                    readln(buscado);
                    Assign(Fichero,nameFile);
                    reset(Fichero);
                    seek( fichero, buscado );
                    read(fichero,adato);
                    writeln('Nombre:',adato.Nombre);
                    writeln('Telefono:',adato.Telefono);
                    close(Fichero);
               end;
               3:writeln('Seleccionaste salir')
          end;
          readln();
until option=3;
end.
Un saludo

[h0oke]

El que quiera, lo puede ir mejorando. Faltan muchas cosas.

Un Saludo!

[taurus992]

buenas noches te envie una mensaje privado por favor revisalo y hablamos mediante msm priv o por aqui

[h0oke]

Dependiendo del compilador, el procedimiento readln con argumentos vacíos puede fallar, en fp funciona correctamente.