I ideafrog Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-04 #3 不太明白你的意思，byte只有一位，你要它的长度作什么用 var b: ^byte; tt: string; begin tt :='0123456789'; getmem(b,10); strPcopy(pchar(b),tt); showmessage(char(b^)); inc(b); showmessage(char(b^)); dec(b); if assigned(b) then freemem(b,10); end;
不太明白你的意思，byte只有一位，你要它的长度作什么用 var b: ^byte; tt: string; begin tt :='0123456789'; getmem(b,10); strPcopy(pchar(b),tt); showmessage(char(b^)); inc(b); showmessage(char(b^)); dec(b); if assigned(b) then freemem(b,10); end;
