TStream怎么释放不掉啊！请帮忙看看好吗？？(50分)

T

terminal_guo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #1

procedure aa;
var
F: TStream;
Str: String;
begin
F := TFileStream.Create(FileName,fmOpenRead);
if F <> nil then
begin
F.Read(Str, F.Size);
F.Free;
end;
end;
在F.Free的时候就抱系统地址错误了，有哪位大虾知道是什么原因啊，望告之解决方法，谢谢了!

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #2

首先，不要从stream中读取string类型的数据，可以改为pchar；
其次，流创建后不需要判断NIL，一般用一个错误结构包括起来。

procedure aa;
var
F: TStream;
Strchar;
begin
F := TFileStream.Create(FileName,fmOpenRead);
try
str:=allocmem(F.Size);
F.Read(Str^, F.Size);

do something

freemem(str);
finally
f.free;
end;
end;

 

T

terminal_guo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #3

谢谢了，我先去试一下！！

 

P

pcsunflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #4

在使用str之前先调用Setlength
procedure aa;
var
F: TStream;
str : string;
begin
F := TFileStream.Create(FileName,fmOpenRead);
try
SetLength(str,F.Size);
F.read(str[1], F.size);
finally
F.Free;
end;
end;

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #5

同意楼上的观点

 

T

terminal_guo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #6

多人接受答案了。