Files

Simply put a file is a binary sequence of some type. In Delphi there a three classes of file:typed, text, and untyped. Typed files are files that contain data of a particular type, such as Double, Integer or previously defined custom Record type. Text files contain readable ASCII characters. Untyped files are used when we want to impose the least possible structure on a file.

Typed Files

While text files consist of lines terminated with a CR/LF (#13#10)combination, typed files consist of data taken from a particular type of data structure.

For example, the following declaration creates a record type called TMember and an array of TMember record variables.

 type
   TMember = record
     Name : string[50];
     eMail : string[30];
     Posts : LongInt;
   end;
 
  var Members : array[1..50] of TMember; 

 var F : file of TMember; 

Note: To create a typed file in Delphi, we use the following syntax:

var SomeTypedFile : file of SomeType

In order to start working with files from Delphi we have to link a file on a disk to a file variable in our program. To create this link we must use AssignFile procedure in order to associate a file on a disk with a file variable.

 AssignFile(F, 'Members.dat') 

Write to a File

Suppose we have filled an array of Delphi members with their names, e-mails and number of posts and we want to store this information in a file on the disk. The following peace of code will do the work:

 var
   F : file of TMember;
   i : integer;
 begin
  AssignFile(F,'members.dat') ;
  Rewrite(F) ;
  try
   for j:= 1 to 50 do
    Write (F, Members[j]) ;
  finally
   CloseFile(F) ;
  end;
 end; 

Read from a File

In order to retreive all the information from the 'members.dat' file we could use this code:

 var
   Member: TMember
   F : file of TMember;
 begin
  AssignFile(F,'members.dat') ;
  Reset(F) ;
  try
   while not Eof(F) do begin
    Read (F, Member) ;
    {DoSomethingWithMember;}
   end;
  finally
   CloseFile(F) ;
  end;
 end; 

Seeking and Positioning

 {go back to the beginning - the first record}
 Seek(F, 0) ;
 
 {go to the 5-th record}
 Seek(F, 5) ;
 
 {Jump to the end - "after" the last record}
 Seek(F, FileSize(F)) ; 

Change and Update

 procedure ChangeEMail(const RecN : integer; const NewEMail : string) ;
 var DummyMember : TMember;
 begin
  {assign, open, exception handling block}
  Seek(F, RecN) ;
  Read(F, DummyMember) ;
  DummyMember.Email := NewEMail;
  {read moves to the next record, we have to
  go back to the original record, then write}
  Seek(F, RecN) ;
  Write(F, DummyMember) ;
  {close file}
 end;

What's important is that this file is not an ASCII file, this is how it looks in Notepad (only one record):

 .Delphi Guide g Ò5·¿ì. 5. . B V.Lƒ ,„¨[email protected]Ï.. ç.ç.ï..