T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2005-01-14 #3 如果是str:string 用setlength(str,4000); 如果是p:array of char 用setlength(p,400) 如果是pchar 用new(p)或getmem(p,400);
如果是str:string 用setlength(str,4000); 如果是p:array of char 用setlength(p,400) 如果是pchar 用new(p)或getmem(p,400);