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





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