delphi - 如何分配给文本文件变量？

Question

以下代码试图将一个 TextFile 变量赋值给另一个，但不编译:

[错误] 运算符不适用于此操作数类型

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var t1, t2: TextFile;
begin
  t1 := t2; // <-- [Error] Operator not applicable to this operand type
end.

如果可以分配给 TextFile 变量，则可以在 System.Output、Sytem.ErrOutput 和/或其他 TextFile 之间切换 实例很容易。但是，分配可能吗？

Answer 1

似乎不支持对 TextFile 变量赋值，但您可以声明和使用指针类型:

type
  PTextFile = ^TextFile;

var
  F: PTextFile;
begin
  F := @Output;
  Writeln(F^, 'Hello');

  F := @ErrOutput;
  Writeln(F^, 'Hello');

  AssignFile(F^, 'test.txt');
  Rewrite(F^);
  Writeln(F^, 'Hello');
  CloseFile(F^);
end;