鱼c数组01_15讲 实例问题

odbo

var
  ran_num: array[1..10] of Integer;
  I, 最大值, 下标: Integer;

begin
  edt1.Text := '';
  edt2.Text := '';
  edt3.Text := '';
  最大值 := 1;

  for I := 1 to 10 do
  begin
     ran_num[I] :=  10+ Random(90);

     if (最大值 < ran_num[I]) then
     begin
       最大值 := ran_num[I];
       下标 := I;
     end;

     edt1.Text := edt1.Text + ',' + IntToStr(ran_num[I]);
     edt2.Text := IntToStr(最大值);
     edt3.Text := IntToStr(下标);
  end;

  edt1.Text := copy(edt1.Text, 2, 30);
//  edt1.Text := Delete(edt1.Text, 1, 1);
//删除最前面","号,为何delete无法通过????


以上是开始键的代码  不知道问题出在哪里?  讲最后的copy语句换成delete语句就无法编译通过
[DCC Error] Unit1.pas(58): E2197 Constant object cannot be passed as var parameter

为何copy能通过而delete无法通过
procedure Delete(var S: String; Index: Integer; Count: Integer);
function Copy(S: <string or dynamic array>; Index: Integer; Count: Integer): string;
这是两个的英文说明 英文太差 看不懂 有老师帮忙说明下差别吗

乐yi忘忧

Constant object cannot be passed as var parameter 常量对象不能作为变量参数传递
procedure Delete(var S: String; Index: Integer; Count: Integer);
function Copy(S: <string or dynamic array>; Index: Integer; Count: Integer): string;

delete是过程，copy是函数

odbo

谢谢 这下明白  加个中间量应该就能解决

1588/足球

我也是来学习的  呵呵

五棵木

真是难得给力的帖子啊。