用手机发布本地信息	严禁群发，各种宣传贴请发表在下沙信息版块	有问必答，欢迎提问	提升会员等级，助你宣传
新会员必读	大学生的论坛	下沙新生必读	下沙币获得方法及使用

社区广播台

返回列表

查看: 3079|回复: 0

delphi问题讨论二

[复制链接]

1983

该用户从未签到

电梯直达

1楼

发表于 2006-10-16 15:03:00 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

关于文件操作。

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);

[此贴子已经被作者于2006-10-16 15:18:47编辑过]