关于STREAM(20分)

F

fossil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #1

调用一个函数的参数是 tMEMORYSTREAM 类型
procdure sdfsdfsdf();
var stream:TmemoryStream;;
begin
stream:=Tmemorystream.create;
aaa(stream);
stream.free
end;

fuction aaa(stream:Tmemeorystream);
........
//编译时候为什么说我这里没有INITIALIZED;有警告信息？？？

 

P

pcsunflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #2

fuction aaa(stream:Tmemeorystream);
改成fuction aaa(stream:TStream); [^]

 

X

xwings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #3

fuction aaa(var stream:Tmemeorystream);

 

Y

yxdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #4

up:
fuction aaa(var stream:Tmemeorystream);

 

Z

zc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #5

fuction aaa(stream:Tmemeorystream);
没有返回值？

 

L

LargeWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #6

fuction aaa(stream:Tmemeorystream);
改成
procedure aaa(stream:Tmemeorystream);就没提示了吧

 

Z

zhanggm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #7

你是不是写成
procedure TForm1.Button1Click(Sender: TObject);
var stream:TmemoryStream;
begin
try
stream:=Tmemorystream.create;
aaa(stream);
finally
stream.free;
end;
end;
之类将其写入保护模块？其实不用TRY 保护的

 

F

fossil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #8

接受答案了.