下载了delphi5开发人员指南,有一段文字如下,但在String型变量中查不到RefCount函数,不知是什么意思?这段代码是下列伪代码的具体体现: procedure ShowVariant(strls:string); var v:Variant; begin 清除变量V,确保它初始化为“空”; try v.VType:=varString;v.VString:=strls;Inc(strls.RefCount); 清除变量V,释放对字符串strls的引用 v.VType:=varInteger;v.VInteger:=34; finally // 现在清除和v a r i a n t有关的资源 end; end;
我不明白你的代码,能不能贴的全一点
procedure ShowVariant(strls:string);
var
v:Variant;
begin
清除变量V,确保它初始化为“空”;
try
v.VType:=varString;v.VString:=strls;Inc(strls.RefCount);
清除变量V,释放对字符串strls的引用
v.VType:=varInteger;v.VInteger:=34;
finally
// 现在清除和v a r i a n t有关的资源
end;
end;