为什么我用readln方法只能从文件中读出66个字节大小？？　　(100分)

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #1

[]

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #2

老兄,你能不能详细点,再贴点代码和源文件出来?
若你那一行不止66个字节的号,说明可能你那一行中有结束符,而readln一遇到结束符就不读了.

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #3

我的源文件是：
if opendialog1.execute
then
begin
AssignFile(f,opendialog1.FileName);
Reset(f);
size:=filesize(f);
Readln(f,s);

for i:=1 to length(s) do
begin
Appendstr(tem,InttoHex(ord(s),2)+#20);
if i mod 4 = 0 then AppendStr(tem,' ');
if i mod 16=0 then AppendStr(tem,#13#10);
if i mod 256=0 then AppendStr(tem,#13#10);
end;
richedit1.Lines.Text :=tem;
closeFile(f);

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #4

reanln是读一行，你一行有多少？
还有就是你的Buf是多大？
var
buf : string[100];
begin
...
readln(F,Buf);
...
就可以读出100个字节来(如果一行有100个字节的话)。

 

D

DUDU

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #5

[][][]
蹭分分
设置你的buffer 会解决问题哦

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #6

多人接受答案了。

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #7

可是我想一次读出256个字节来，还能用readln吗？