论坛 › Delphi交流 › 鱼C冒泡排序2.0的小疑问?

snakegao 发表于 2011-10-10 22:36:32

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

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

小甲鱼 发表于 2011-10-11 03:22:37

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

snakegao 发表于 2011-10-11 10:24:28

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

查看完整版本: 鱼C冒泡排序2.0的小疑问?