Mega Code Archive
How can i assign a file variable in a record
<![CDATA[
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;
]]>