请高手解疑！！！！(30分)

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #1

程序如下：

var
f:file;
s:string;
n:integer;
begin
AssingFile(f,'c:/ss.ext');
reset(f,1);
blockread(f,s,100,n);
closefile(f);
end;

上面的程序可能有此命令不对，但说明的意思你一定看懂了，问题出来了：
我想读入100字符到“S”，返回的"n"也确实是100，可我得到的却只有32个字符！！
这是为什么呢？？？

来者请指点一二！多谢了！！！！！

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #2

AssingFile(f,'c:/ss.ext');
reset(f,1);
SetLength(s,100); //事先分配空间
blockread(f,s[1],100,n); //要用s[1]
closefile(f);

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #3

在Delphi1.0中没有提供Setlength函数，请问有没有别的办法解决动态分配的问题？？

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-03

• #4

var
s:ShortString;
...
s[0]:=Char(100); //长度不能大于255
...

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-04

• #5

多人接受答案了。