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

为什么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;