删除文件记录问题？(30分)

B

bytelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #1

比如在程序中
type
TFILE=Record
Y1:String[15];
Y2:STRING[15];
end


VAR TEMPFILE：FILE OF TFILE;

ASSIGNFILE(TEMPFILE,'FILE.DAT');
在file.dat中已经录有多条记录
我想删去file.dat其中的某一条记录该用什么命令？

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #2

加一个是否删除标志 s:sring;'0' '1'

 

B

bytelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #3

你是说多加一个字段用来标明是否程序逻辑上删除？
如果我想从物理上删除呢？

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #4

那只有重新建立一个文件，从这个读过去，去掉不想要的记录

 

B

bytelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #5

那不很麻烦？有没有好一点的办法？

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #6

你可以把此记录开头赋空格，一旦检查到空格，跳到下一记录

 

B

bytelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #7

看来惟有如此了

 

B

bytelife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #8

接受答案了，送上30分，谢谢