鱼C冒泡排序2.0的小疑问?

snakegao

请问甲鱼老师:
procedure TForm1.BitBtn1Click(Sender: TObject);
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 := i + 1;
    end;
    showmessage(temp);
    i := i + 1;
    //numx[j] := StrToInt(temp);
    temp := '';
  end;
红色部分为什么不写成这样: while (i <= length(str)) do,第二个循环中i值最终会等于length(str) 值的.
当然上述红色代码不会影响结果值的.

小甲鱼

嘿嘿，因为进行了两次 i:= i + 1

snakegao

谢谢甲鱼老师,好像有问题,当编辑框中输入的最后一个数为一位数时,排序就放弃它啦!