学习19课冒泡排序的时候遇到的问题

一心爱霞

完成之后, 输入 2 1  或者  3 1 之类的就不正常, 输入 3 2 1 呢就会不显示1,问题多多,折腾半下午了就是发现不了哪里有问题,特别是 输入俩数字 2 1  或者 5 1啊  肯定能出现这个状况   求指教,问题出在哪里, 裸求    看了后面课程,学着下断点,自己解决了

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
//var

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  num: Array[1..100] of Integer;
  t: Integer;
  str: String;
  i: Integer;
  temp: String;
  m, j, k, n: Integer;

begin
  str:= Trim(Edit1.Text);//去除左右空格
  i:= 1;
  t:= 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;
    i:= i + 1;
    num[t]:= StrToInt(temp);
    t:= t + 1;
    showmessage(inttostr(t));
    showmessage(temp);
    temp:= '';
  end;



  For m:= 1 to t - 1 do
  begin
    k:= t - m;
    For j:= 1 to k do
    begin
      If (num[j] < num[j + 1]) then
      begin
        n:= num[j];
        num[j]:= num[j + 1];
        num[j + 1]:= n;
      end;
    end;
  end;
  Edit1.Text:= '';
  For m:= t - 1 Downto 1 do
    Edit1.Text:= Edit1.Text + IntToStr(num[m]) + ' '  ;

end;

end.

一心爱霞

29个人 看 就没有一个回复的么

Rogue1986

我就想知道你的窗体背景栏是咋弄的

gears

同样是做了一下午 没有做出来

gears

我还是做得1.0版本 看小甲鱼的代码可以读懂 按自己思路写就不对了

gears

这个我解决了