菜鸟一个，帮忙看一下第19课，我的代码哪里有问题，总是不对

海云

implementation
var
y : integer = 1;
num : Array [1..100] of integer;


{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
str : string;
i: integer;
  temp: string;
  n : integer ;
  k ,b ,c ,d:integer;
begin
  str := Trim(edit1.Text);
  i:=1;


while (i < length(str))     do
  begin

   while ((str[i] <> #32) And (str[i] <> #0)) do
     begin
      temp:= temp + str;

        i:=i+1;
     end;

     num[y]:=StrToInt(temp);
      y:=y+1;
    i:=i+1;
    temp:='';

  end;

  for n := 1 to y -1 Do
    begin
      k:=y-n;

       for b := 1 to k  do
       begin
          if (num[b]<num[b+1]) then
            c:=num[b];
            num:=num[b+1];
            num[b+1]:=c;
        end;
     end;

    edit1.Text:='';
  for b := (y-1) Downto 1 do
  begin
    edit1.Text:= edit1.Text + (IntToStr(num[d])) + ' ';
  end;
end;

end.


[/b][/b][/i][/i]

qiusuo

继续顶{:1_1:}

11年__那些事儿

c ：= num;             ?
num是个数组，c是integer，类型不兼容！。。
麻烦你下次提问时附上错误提示。