救火了，119在哪呢？ ( 积分: 100 )

var
outfile:text;
path:string

begin
if bout then //假如bout为真，输出到文本
assignFile(outFile, path);
rewrite(outFile)
else //否则输出到标准设备。
outfile:=Output
//[red]这里我想把outfile指向标准输出设备，但出错。[/red]
................. //Output是system单元声明的系统变量。
end;
是不是text类型不能赋值给text类型?

var
outfile:text;
path:string

begin
if bout then //假如bout为真，输出到文本
assignFile(outFile, path);
rewrite(outFile)
else //否则输出到标准设备。
outfile:=Output
//[red]这里我想把outfile指向标准输出设备，但出错。[/red]
................. //Output是system单元声明的系统变量。
end;
是不是text类型不能赋值给text类型?

outfile:=Output
//[red]这里我想把outfile指向标准输出设备，但出错。[/red]

是output:=outfile吧？

type
PText = ^Text;

var
outfile:text;
p_outFile: PText;
path:string


begin
if bout then //假如bout为真，输出到文本
begin
assignFile(outFile, path);
rewrite(outFile)
end
else //否则输出到标准设备。
p_outFile := @Output

................. //Output是system单元声明的系统变量。
end;

风林波帮我解决了上述问题，但问题又来了。我的程序往标准设备(Output)一行一行的writeln，怎么当写到一定行的时候会出现writeln的时候丢前面行的现象？也就是把前面的行挤掉了？