K kaida Unregistered / Unconfirmed GUEST, unregistred user! 2005-11-17 #4 var p: PChar; begin p := StrAlloc(255); try //.... finally StrDispose(p); end; end 或： var p: PChar; begin GetMem(p, 255); try // ... finally FreeMem(p); end end;
var p: PChar; begin p := StrAlloc(255); try //.... finally StrDispose(p); end; end 或： var p: PChar; begin GetMem(p, 255); try // ... finally FreeMem(p); end end;
