基本介紹
- 中文名：有類型檔案
- 格式：類型標識符＝File of 基類型；
- 拼音：youleixingwenjian
- 例如：file1=file of intege
有類型檔案的定義,有類型檔案的建立,有類型檔案的訪問,例題分析,
有類型檔案的定義
有類型檔案的類型說明的格式為：
類型標識符=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;
例如：
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.
Turbo Pascal將檔案分為三類：文本檔案（順序）、有類型檔案（順序或隨機）和無類型檔案（順序或隨機）。下面將介紹這些檔案及其操作。
