Главная страница | назад





Article #16097: How can I assign a file variable in a Record?

 Question and Answer Database

FAQ1097D.txt   How can I assign a file variable in a Record?
Category   :Object Pascal
Platform    :All
Product    :All 32 bit  

Question:
How can I assign a file variable in a Record?

Answer:
While the Object Pascal language does not allow a direct assignment
of a file variable, you can use the Move() procedure to move the
contents of the variable to another variable. Note: If you save the
record to a file for recall at a later date, you will need to
re-initialize the file variable.

Example:

  TMyRec = Record
    f : file;
    OtherField : integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  f : file;
  MyRec : TMyRec;
begin
  AssignFile(f, 'SomeFile.txt');
 {This line will not compile}
  MyRec.f := f;
 {This line will!}
  Move(f, MyRec.f, sizeof(f));
  Rewrite(MyRec.f);
  CloseFile(MyRec.f);
end;


7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99