QQ登录

只需一步,快速开始

搜索
查看: 134|回复: 0

[学习笔记] 冒泡排序V2.0 - 阶段性上机实践(小结)03 - 零基础入门学习Delphi019

[复制链接]
最佳答案
465 
累计签到:683 天
连续签到:1 天
发表于 2017-8-5 14:22:32 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
与上一课的区别是在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.   for i:= 1 to n - 1 do
  22.     for j:= 1 to n - i do
  23.       if Num[j] > Num[j + 1] then
  24.         begin
  25.           temp := Num[j];
  26.           Num[j]:= Num[j + 1];
  27.           Num[j + 1]:= temp;
  28.         end;
  29.   Edit1.Text:= '';
  30.   for i:= 1 to n do
  31.     Edit1.Text:= Edit1.Text + IntToStr(Num[i]) + ' ';

  32. end;
复制代码
4.JPG
5.JPG

评分

参与人数 1鱼币 +3 收起 理由
小甲鱼 + 3

查看全部评分

本帖被以下淘专辑推荐:

1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐上一条 /1 下一条

小黑屋手机版Archiver( 粤公网安备 44051102000370号 | 粤ICP备11014136号

© 2010-2017 FishC.com GMT+8, 2017-10-22 01:43 Powered by Discuz! X2.5 Theme by dreambred

快速回复 返回顶部 返回列表