怪,appicon 是hicon类型 不需要释放阿。hicon好像是个无符号长整形。 比如 var i:integer; begin i:=4*3; end;i需要释放吗?---不晓得对不对:)
呵。 目前只有JAVA有垃圾回收
看如下: var AList :TList ; nCounter :Integer ;..... procedure XGetMem(var p:Pointer;size:Integer) ; begin GetMem(p,size) ; aList.Add(p) ; end; .... function callee:PChar ; var yourstr:string ; // which one you want return it's content to caller begin yourstr := 'God it is too bad' ; try XGetMem(result,length(yourstr)+1) ; // use XGetMem instead of default one except result := nil ; end ; if assigned(result) then begin StrPLCopy(result,yourstr,length(yourstr)) ; result[length(yourstr)] := #0; end ; end ;.... .... ....initialization AList:=TList.Create ; // corrected it,:) finalization while nCounter < AList.Count do begin freemem(aList.Items[nCounter]) ; inc(nCounter) ; end; AList.Clear ; AList.Free ; end. 是否为垃圾回收呢!
比如
var
i:integer;
begin
i:=4*3;
end;i需要释放吗?---不晓得对不对:)
目前只有JAVA有垃圾回收
var AList :TList ;
nCounter :Integer ;.....
procedure XGetMem(var p:Pointer;size:Integer) ;
begin
GetMem(p,size) ;
aList.Add(p) ;
end;
....
function callee:PChar ;
var yourstr:string ; // which one you want return it's content to caller
begin
yourstr := 'God it is too bad' ;
try
XGetMem(result,length(yourstr)+1) ; // use XGetMem instead of default one
except
result := nil ;
end ; if assigned(result) then begin
StrPLCopy(result,yourstr,length(yourstr)) ;
result[length(yourstr)] := #0;
end ;
end ;....
....
....initialization
AList:=TList.Create ; // corrected it,:)
finalization
while nCounter < AList.Count do
begin
freemem(aList.Items[nCounter]) ;
inc(nCounter) ;
end;
AList.Clear ;
AList.Free ;
end.
是否为垃圾回收呢!