assignfile这个readln读取txt一行时,为什么总是说incompatible type

assignfile  时间:2021-01-04  阅读:()

为什么BlockWrite写不了文件呢?百思不得其解,望大侠指教啊!

AssignFile(f,FileName); try Rewrite(f); BlockWrite(f,Buffer,SizeOf(Buffer),BytesRead); finally CloseFile(f); end;我使用BlockWrite,想将Buffer里的内容写入名为f的file里面,可是怎么打开文件后,却之后乱码一堆。

这是怎么回事?

delphi AssignFile()函数能否自动实现共享文件读写的正确控制?

Delphi帮助上有一句:Note avoid scope conflicts, AssignFile replaces the Assign procedure that was available in previous versions of Delphi. However, for patibility Assign is still available.所以,我认为能自动实现共享。

如果用Assign,则不能。

或者用TFileStream,在Create中加上fmShareDenyNone选项,则完全实现无冲突共享。

—————————————————————————————————MaximStr '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。

';if Not Assigned(I) then I TI.Create(Nil);I.Maxim MaximStr;I.Explain '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';I.Desire '加不加分随你';—————————————————————————————————

这道题用 tubro pascal 怎么表示

var NLen69, NLen39, NLen29: Byte; //69, 29, 39规格的个数 MiniLen: Word; //最小余料 i, j, k: Byte; begin NLen69 := 1; NLen39 := 1; NLen29 := 1; MiniLen := 600; for i:= 1 to Trunc(600 / 69) + 1 do for j := 1 to Trunc(600 / 39) + 1 do for k := 1 to Trunc(600 / 29) +1 do begin if (600 - i * 69 - j * 39 - k * 29 > 0) and (600 - i * 69 - j * 39 - k * 29 < MiniLen) then begin MiniLen := 600 - i * 69 - j * 39 - k * 29; NLen69 := i; NLen29 := j; NLen39 := k; end; end; AssignFile(Output, 'C:cut.out'); Writeln(Output, '69cm: ', NLen69, ' 29cm: ', NLen29, ' 39cm: ', NLen39); Writeln(Output, '最小剩余长度:', MiniLen); Readln; end.

这个readln读取txt一行时,为什么总是说incompatible type

File 是一种二进制文件,不能按行读取。

如果使用文本文件,最好改成:procedure Tform1.create(send:Tobject);var ss :string; tid: textfile;begin assignfile(tid,'user.txt'); reset(tid); while not eof(tid) do readln(tid,ss);end;

热网互联33元/月,香港/日本/洛杉矶/韩国CN2高速线路云主机

热网互联怎么样?热网互联(hotiis)是随客云计算(Suike.Cloud)成立于2009年,增值电信业务经营许可证:B1-20203716)旗下平台。热网互联云主机是CN2高速回国线路,香港/日本/洛杉矶/韩国CN2高速线路云主机,最低33元/月;热网互联国内BGP高防服务器,香港服务器,日本服务器全线活动中,大量七五折来袭!点击进入:热网互联官方网站地址热网互联香港/日本/洛杉矶/韩国cn2...

PacificRack 下架旧款方案 续费涨价 谨慎自动续费

前几天看到网友反馈到PacificRack商家关于处理问题的工单速度慢,于是也有后台提交个工单问问,没有得到答复导致工单自动停止,不清楚商家最近在调整什么。而且看到有网友反馈到,PacificRack 商家的之前年付低价套餐全部下架,而且如果到期续费的话账单中的产品价格会涨价不少。所以,如果我们有需要续费产品的话,谨慎选择。1、特价产品下架我们看到他们的所有原来发布的特价方案均已下架。如果我们已有...

racknerd新上架“洛杉矶”VPS$29/年,3.8G内存/3核/58gSSD/5T流量

racknerd发表了2021年美国独立日的促销费用便宜的vps,两种便宜的美国vps位于洛杉矶multacom室,访问了1Gbps的带宽,采用了solusvm管理,硬盘是SSDraid10...近两年来,racknerd的声誉不断积累,服务器的稳定性和售后服务。官方网站:https://www.racknerd.com多种加密数字货币、信用卡、PayPal、支付宝、银联、webmoney,可以付...

assignfile为你推荐
华为p40和mate30哪个好mate30 5G和p40 5G有什么区别?手动挡和自动挡哪个好手动挡车和自动挡的哪个好?机械表和石英表哪个好机械表好还是石英表好,看专家如何分析朗逸和速腾哪个好朗逸跟速腾的最大区别在哪朗逸跟速腾买那个好浮动利率和固定利率哪个好银行贷款是选固定利率好还是浮动利率无纺布和熔喷布口罩哪个好活性碳口罩和无纺布口罩有什么不同?手机炒股软件哪个好手机股票交易哪个平台最好雅思和托福哪个好考托福和雅思哪个好考 急。。。。。网络机顶盒哪个好什么牌子的网络机顶盒最好qqkj空间登录怎么限制qq空间登录.
北京网站空间 最便宜虚拟主机 vultr美国与日本 分销主机 uk2 免备案cdn 国外空间服务商 网站监控 空间服务商 南昌服务器托管 魔兽世界台湾服务器 圣诞促销 hostker 双线主机 爱奇艺vip免费试用7天 google台湾 智能dns解析 华为k3 摩尔庄园注册 xuni 更多