《零基础入门学习Delphi》019 - 课件+典型例题源代码

小甲鱼

《零基础入门学习Delphi》019 - 课件+典型例题源代码


本讲教学视频下载地址：冒泡排序V2.0 - 阶段性上机实践（小结）03 -《零基础入门学习Delphi》019


附件包含：课件+典型例题源代码

019冒泡排序V2 - 阶段性上机实践（小结）03 - 零基础入门学习Delphi019（课件+源代码）.zip (354.56 KB, 下载次数: 503, 售价: 20 鱼币)

2011-11-13 23:02 上传

点击文件名下载附件

注：VIP会员享有免费下载本站所有资源的特权！

友情提示：通过购买鱼C光盘（具体内容）赞助鱼C工作室均可加入VIP会员^_^

                               
登录/注册后可看大图

该贴已经同步到 小甲鱼的微博

独自等待

看一下！！！

lion800001

视频能下载吗

kommylian

太过分了 居然下错了 我的鱼币啊

liya406

没鱼币了 哎.........

HackX

强烈支持楼主ing……

HackX

感恩无私的分享与奉献 :)

老头子

不知道在哪里上传 只能贴上来让小甲鱼老师指点下，和效率问题
var
  a: array of integer;
  str,temp: string;
  i: integer;
  j,x,k: integer;
begin
    j:= 0;
    str:= Trim(Edit1.Text);
    for i:= 1 to length(str) do
    begin
     if( str[i] = #32 ) then
     begin
       j:= j + 1;      //计算有几个数
     end;
    end;
    i:= 1; x:= 0;
    SetLength(a,j+1);  //j+1 是因为4个数有3个空格
    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;
       a[x]:= strtoint(temp);
       x:= x + 1;
       temp:= '';
     end;
     Edit1.Text:= '';
     for k:= 1 to j do       //排序
       for x:= 0 to j-k do  
        begin
         if (a[x]>a[x+1]) then
          begin
           i:= a[x];
           a[x]:= a[x+1];
           a[x+1]:= i;
          end;
        end;
    for x:= 0 to j do
    Edit1.Text:= Edit1.Text + inttostr(a[x]) + ' ';
end;

end.

ilove

好，强烈支持楼主ing……

ilove

好，强烈支持楼主ing……

l万lin

我的鱼币啊.....20就这样没了....伤心中..................................................

l万lin

晕呐,原来在下节视频有源代码.............我的币币呐.......................................................

hqy

分不够。。。。。。。。。。。。。。。。。。

号号不爽

真是难得给力的帖子啊。

x1021173539

鱼币不够，下载不了，哎……

bestboyhjj

下载下，20币没了

kingof

好可惜，鱼币不够啊