关于文件操作。 type book=record name:string[100]; writer:string[100]; publisher:string[100]; pressdate:string[100]; classfication:string[100]; end; var showbook:file of book; begin assign(showbook,'book.txt'); //发生类型不布配问题。incompatible types:'tpersistent'and'text filemode:=2; append(showbook);
, c, _) j2 E0 T* z1 g3 p' d9 ~- r0 N[此贴子已经被作者于2006-10-16 15:18:47编辑过] , |" v+ ]; J- x8 R# }, Z: C( \
|