Question

Free Pascal的Seek语句怎么用。

例如，编译“Seek(Output,3)”时候提示Error: Call by var parameters have to match exactly: Got "Text" expected "File"。
难道Output不是文件类型？

Answer 1

只能将output，重新定义成file类型的文件，而不能使用text类型的文件。

一、有类型文件的定义
有类型文件中的元素可以是混合型的，并以二进制格式存贮，因此有类型文件（除了字符类型文件，因为它实质上是文本文件）不象文本文件那样可以用编辑软件等进行阅读和处理。
有类型文件的类型说明的格式为：
类型标识符＝File of 基类型；
其中基类型可以是除了文件类型外的任何类型。例如：
file1=file of integer;
file2=file of array[1..10] of string;
file3=file of set of char;
file4=file of real;
file5=file of record;
name:string;
course:array[1..10] of real;
sum:real;
end;
等等，其中file2,file3,file5中的数组、集合、记录等类型可以先说明再来定义文件变量。
例如：
var
f1:file1;
f2,f3:file3;
f4:file5;
与前面所有类型说明和变量定义一样，文件类型说明和变量定义也可以合并在一起，例如：
var
f1:file of integer;
f2,f3:file of set of char;
file4=file of record;
name:string;
course:array[1..10] of real;
sum:real;
end;

Free Pascal对有类型文件的访问既可以顺序方式也可以用随机方式。
二、有类型文件的建立
有类型文件的建立只能通过程序的方式进行，其操作步骤与文本文件程序方式建立的步骤相仿，不同之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令指定指针随机写入。
三、有类型文件的访问
有类型文件访问的操作步骤与文本文件的程序访问操作步骤相仿，区别之处：（1）有类型文件的定义与文本文件的定义不同；（2）有类型文件可以利用seek命令访问文件记录中的任一记录与记录中的任一元素。

对有类型文件的写操作步骤为：
assign(f,str);
rewrite(f);
write(f,var表);
close(f);

对有类型文件的读操作步骤为：
assign(f,str);
reset(f);
read(f,var表);
close(f);

四、例题分析
例11.5 设有一个整数文件f，现要求将其中的偶数乘以2，奇数减1，形成一个偶数文件。

分析：有两种方法，一是另外生成一个偶数文件g，一是将生成的偶数文件仍然保存在原文件f中，下面分别给出这两种方法的程序。

program exp11_5_1(input,output)； { 生成一个偶数文件g }

var f,g : file of integer；

x:integer；

begin

assign(f,’input.txt’)；

assign(g,’output.txt’)；

reset(f)；

rewrite(g)；

while not eof(f) do

begin

read(f,x)；

if odd(x) then x:=x-1

else x:=x+x；

write(g,x)；

end；

close(f) ；close(g)；

end.

program exp11_5_2(input,output)； { 将生成的偶数文件仍然保存在原文件f中 }

var f : file of integer；

x，i:integer；

begin

assign(f,’input.txt’)；

reset(f)；

i:=1； { 人为设定一个写指针 }

while not eof(f) do

begin

read(f,x)； { 系统指针作为读指针 }

if odd(x) then x:=x-1

else x:=x+x；

seek(f,i)； { 将写指针定位到目标位置 }

write(f,x)；

i:=i+1；

end；

close(f)；

end.

例11.6 设有两个已经排好序（从小到大）的整数文件t1和t2，请编程将t1和t2合并成一个文件t，使得合并后的文件也是有序的（从小到大）。

program exp11_6(input,output)；

type intfile = file of integer；

var t1,t2,t:intfile；

procedure paixu(var f,g,h:intfile)；

var m,x,y:integer；

begin

reset(f) ；reset(g) ；rewrite(h) ；

m:=0； { m为初始标志 }

while (not eof(f) and not eof(g)) do

begin

if m=0 then begin read(f,x) ；read(g,y) ；m:=1； end；

if x<y then begin write(h,x)；read(f,x)； end

else begin write(h,y)；read(g,y)； end；

end；

while not eof(f) do begin read(f,x)；write(h,x)； end；

while not eof(g) do begin read(g,y)；write(h,y)； end；

close(f)；close(g)；close(h)；

end；

begin { main }

assign(t1,’input1.txt’)；

assign(t2,’input2.txt’)；

assign(t, ’output.txt’)；

paixu(t1,t2,t)；

end.

注意：类型文件用写字本或TYPE命令打开看，全是乱码（二进制代码）。