W
whaoye
Unregistered / Unconfirmed
GUEST, unregistred user!
比如我有一个函数，这个函数是这个样子的。
procedure Myfun(s:tmemortstream);
begin
//some code here
end;
然后可能我调得时候这个样子：
procedure tform1.button1click(sender:tobject);
var
s:tmemorystream;
begin
s:=tmemorystream.create;
try
s.loadfromfile('c:/myfile.txt');
myfun(s);
finally
s.free;
end;
请问把s传递过去得时候，是传递的什么？
并且在myfun里面要不要s:=tmemorystream.create?
我不想使用全局得变量，也不想改为myfun(var s:tmemorystream);
因为可能多线程同时来访问。
procedure Myfun(s:tmemortstream);
begin
//some code here
end;
然后可能我调得时候这个样子：
procedure tform1.button1click(sender:tobject);
var
s:tmemorystream;
begin
s:=tmemorystream.create;
try
s.loadfromfile('c:/myfile.txt');
myfun(s);
finally
s.free;
end;
请问把s传递过去得时候，是传递的什么？
并且在myfun里面要不要s:=tmemorystream.create?
我不想使用全局得变量，也不想改为myfun(var s:tmemorystream);
因为可能多线程同时来访问。