初用流的问题(49分)

var
k:string;
st:tfilestream;
l:integer;
begin
if opendialog1.execute then
begin
st:=tfilestream.Create(opendialog1.filename,fmopenread);
l:=st.size;
while st.position<st.sizedo
st.read(k,l);
应该是这里有问题吧
如果把k改为char类型，用
st.read(k,sizeof(char))来一个个读出来就没问题
但是不是就不能一次读进一个字符窜里的，应该可以
的啊
edit1.txt:=k;
end;
end;

hehe,被小于号"吃"掉了.
快重贴一次.大小于号用全角就行了.

接受答案了.

这样就得分了? 无功不受禄哦.
不过既然你给了,我也就收下了.