delphi的copy函式在複製字元陣列時的問題
var recbuff:string;
var len,i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
recBuff:='';
for i:=1 to 8 do buff[i]:=char(0);
buff[1]:=char(3);
len:=7;
recBuff:=copy(buff,1,len);
SELF.Caption:=inttostr(length(recBuff));
end;
上面這段程式碼顯示結果為:0