copy函数

Question

avgcount:=copy(rbuf,1,4)
//其中rbuf为动态数组!!!
为什么不能执行??

Answer 1

copy的第一个参数必须是string
不可能是个动态数组，你必须给动态数组分配长度，用setlength,数组还要是字符串数组，然后再对某个数组成员进行copy多看看书!hehe

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  AA: array of Char;
begin
  SetLength(AA, 10);
  AA[0] := 'A';
  AA[1] := 'B';
  AA[2] := 'C';
  AA[3] := 'D';
  ShowMessage(Copy(string(AA), 1, 3));end;

Answer 3

这个只能取字符数组的，若换作array of string就不中

Answer 4

copy 后只复制字符串，从第几位开始，共几位。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  AA: array of string;
begin
  SetLength(AA, 10);
  AA[0] := 'A123';
  AA[1] := 'B';
  AA[2] := 'C';
  AA[3] := 'D';
  ShowMessage(Copy(AA[0], 1, 3));end;