Address Book Program

Address Book - Program Specification

• Use three arrays, in order to store up to 60 names, addresses and telephone numbers.
• You must be able to enter, view and edit individual records.
• You must be able to save your address book data to a text file on the hard disc (see below).
• You should be able to view the address book, in 'pages', since it will not be possible to display all 60 names, addresses and telephone numbers on the screen at one time.
• I expect you to take a 'professional' and serious approach to your programming from now on. No silly error messages or opening screens. Design your user dialogue as you would expect to find it on a commercial program.

Saving and Loading Text Files

1. Declare a text file variable.
2. Assign the text file variable to a real file name.
3. Turn the I/O checking off.
4. Try and open the file for writing to.
5. Turn the I/O checking back on.
6. Check to see if the file opened successfully.
7. If it did, save your arrays and close the file, else output an error message.

1. Declare a text file variable.
2. Assign the text file variable to a real file name.
3. Turn the I/O checking off.
4. Try and open the file for reading from.
5. Turn the I/O checking back on.
6. Check to see if the file opened successfully.
7. If it did, load your arrays and close the file, else output an error message.

{---------------------------------------------------------}
procedure Save(Name,Address,Phone: ArrayType);
{---------------------------------------------------------}
var
  i: integer;
  fdat : text;

    begin
    assign(fdat,'address.dat');	{Give the text variable a 
                                           real file name}
    {saving the file}			
    {$I-}                               {Open the file for writing to,
    rewrite(fdat);			with the input checking off}
    {$I+}
				
    if IOResult=0 then			{File opened OK}
      begin
	for i:=1 to maxNames do
	  begin
  	  writeln(fdat,Name[i]);    	{Writing to the text file}
	  writeln(fdat,Address[i]);
	  writeln(fdat,Phone[i]);
	  end;
      close(fdat);			{Opened files must be closed}
      end
        else Warning ('An error has occurred whilst saving! Is your disc full?');
     end;  {Save procedure}



{---------------------------------------------------------}
procedure Load(var Name,Address,Phone: ArrayType);
{---------------------------------------------------------}
var
  i: integer;
  fdat : text;

    begin
    assign(fdat,'address.dat');	{Give the text variable a 
                                           real file name}
    {loading the file}			
    {$I-}                                 {Open the file for reading,
    reset(fdat);                           with the input checking off}
    {$I+}					
				
    if IOResult=0 then                    {File opened OK}
      begin
	for i:=1 to maxNames do
	  begin
  	  readln(fdat,Name[i]);           {Writing to the text file}
	  readln(fdat,Address[i]);
	  readln(fdat,Phone[i]);
	  end;
      close(fdat);                        {Opened files must be closed}
      end
        else Warning ('File not found!');
     end;  {Save procedure}