另类的文本读取问题～，^_^，希望有人能帮我(200分)

不

不要踩我

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-08

• #1

我现在碰到这样一个问题，我想读出某个文件地址为$4000以后的所有字然后在memo中显示，其实这个问题并不是很难，如果要达到效果的话，最愚蠢的方法就是读出$4000以后的所有字节数值，然后转换成字符串显示在Memo中，但是这样的方法很不明智，速度很慢，所以求高手指点，可不要告诉先全部读出来然后用Copy函数~~,最好有现成的代码可以参观，^_^

 

P

pascal!

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-08

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
sf : tfilestream ;
begin
sf := tfilestream.Create('filename', fmOpenReadWrite) ;
sf.Position := $4000 ;
memo1.Lines.LoadFromStream(sf) ;
sf.free ;
end;

 

不

不要踩我

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-08

• #3

都是乱码

 

不

不要踩我

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-08

• #4

好了，谢谢，原来Memo还可以接受流的呀，打开眼界，^_^，散分了，谢谢你