冒泡排序V2.0 - 阶段性上机实践（小结）03 - 零基础入门学习Delphi019

冬雪雪冬

与上一课的区别是在edit1中一次输入全部的数字，之间用空格隔开，按钮改为可以有位图的Bitbtn，结果仍显示在edit1中。
首先要去掉字符串两边的空格，避免判断失误。Trim去除字符串两端的空格，LTrim去除左边空格，RTrim去除右边。
单个字符不用如空格不用’ ’表示，而用#32。但我用’ ‘程序也可以正常运行。
字符串当数组使用下标从1开始，真是奇葩，有的从0开始，有的从1开始，晕了！
调试中，下断点后，按Ctrl-Alt-L，可查看变量的值，这对观察变量的变化情况很有帮助。

1. procedure TForm1.BitBtn1Click(Sender: TObject);
   
2. var
   
3.   i, j, n, temp: Integer;
   
4.   Num: Array[1..100] of Integer;
   
5.   Str, TempStr: String;
   
6. begin
   
7.   Str:= Edit1.Text;
   
8.   Str:= Trim(Str);
   
9.   TempStr:= '';
   
10.   n:= 1;
    
11.   for i:= 1 to Length(Str) do
    
12.     if Str[i] = ' ' then
    
13.       begin
    
14.         Num[n]:= StrToInt(TempStr);
    
15.         TempStr:= '';
    
16.         n:= n + 1;
    
17.       end
    
18.     else
    
19.       TempStr:= TempStr + Str[i];
    
20.    Num[n]:= StrToInt(TempStr);
    
21. 
    
22.   for i:= 1 to n - 1 do
    
23.     for j:= 1 to n - i do
    
24.       if Num[j] > Num[j + 1] then
    
25.         begin
    
26.           temp := Num[j];
    
27.           Num[j]:= Num[j + 1];
    
28.           Num[j + 1]:= temp;
    
29.         end;
    
30.   Edit1.Text:= '';
    
31.   for i:= 1 to n do
    
32.     Edit1.Text:= Edit1.Text + IntToStr(Num[i]) + ' ';
    
33. 
    
34. end;
    

复制代码

不多太少

先暂时不看这个了