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;

两款半月湾 HMBcloud 春节88折日本和美国CN2 VPS主机套餐

春节期间我们很多朋友都在忙着吃好喝好,当然有时候也会偶然的上网看看。对于我们站长用户来说,基本上需要等到初八之后才会开工,现在有空就看看是否有商家的促销。这里看到来自HMBcloud半月湾服务商有提供两款春节机房方案的VPS主机88折促销活动,分别是来自洛杉矶CN2 GIA和日本CN2的方案。八八折优惠码:CNY-GIA第一、洛杉矶CN2 GIA美国原生IP地址、72小时退款保障、三网回程CN2 ...

Boomer.Host(年付3.5美)休斯敦便宜VPS

Boomer.Host是一家比较新的国外主机商,虽然LEB自述 we’re now more than 2 year old,商家提供虚拟主机和VPS,其中VPS主机基于OpenVZ架构,数据中心为美国得克萨斯州休斯敦。目前,商家在LET发了两款特别促销套餐,年付最低3.5美元起,特别提醒:低价低配,且必须年付,请务必自行斟酌确定需求再入手。下面列出几款促销套餐的配置信息。CPU:1core内存:...

RAKsmart美国洛杉矶独立服务器 E3-1230 16GB内存 限时促销月$76

RAKsmart 商家我们应该较多的熟悉的,主营独立服务器和站群服务器业务。从去年开始有陆续的新增多个机房,包含韩国、日本、中国香港等。虽然他们家也有VPS主机,但是好像不是特别的重视,价格上特价的时候也是比较便宜的1.99美元月付(年中活动有促销)。不过他们的重点还是独立服务器,毕竟在这个产业中利润率较大。正如上面的Megalayer商家的美国服务器活动,这个同学有需要独立服务器,这里我一并整理...

assignfile为你推荐
视频剪辑软件哪个好电脑视频剪辑软件哪个最好用机械表和石英表哪个好机械表好还是石英表好,看专家如何分析游戏盒子哪个好游戏盒子哪个好?手机炒股软件哪个好手机股票交易哪个平台最好群空间登录手机能否登录群空间,如何登录飞信空间登录请问如何登陆我的飞信空间?电信dns服务器地址电信现在DNS服务器地址是多少360云盘36t360 wifi随身 10t 有限制吗360云安全中心360云安全中心连接不到什么时候买车最便宜告诉你 一年中什么时候买车最便宜
vps代理 域名备案中心 新秒杀 hostmaster 新世界机房 博客主机 国外服务器 gitcafe 轻博 NetSpeeder 警告本网站 丹弗 国外在线代理 中国智能物流骨干网 共享主机 卡巴斯基试用版 福建铁通 免费mysql数据库 域名dns 外贸空间 更多