《零基础入门学习Delphi》019 - 课件+典型例题源代码
《零基础入门学习Delphi》019 - 课件+典型例题源代码本讲教学视频下载地址：冒泡排序V2.0 - 阶段性上机实践（小结）03 -《零基础入门学习Delphi》019
附件包含：课件+典型例题源代码
注：VIP会员享有免费下载本站所有资源的特权！
友情提示：通过购买鱼C光盘（具体内容）赞助鱼C工作室均可加入VIP会员^_^
http://bbs.fishc.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 小甲鱼的微博 看一下！！！ 视频能下载吗 太过分了 居然下错了 我的鱼币啊 没鱼币了 哎......... 强烈支持楼主ing…… 感恩无私的分享与奉献 :) 不知道在哪里上传 只能贴上来让小甲鱼老师指点下，和效率问题
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 = #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 <> #32) and (str <> #0)) do
begin
temp:= temp + str;
i:= i + 1;
end;
i:= i + 1;
a:= 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>a) then
begin
i:= a;
a:= a;
a:= i;
end;
end;
for x:= 0 to j do
Edit1.Text:= Edit1.Text + inttostr(a) + ' ';
end;
end. 好，强烈支持楼主ing…… 好，强烈支持楼主ing…… 我的鱼币啊.....20就这样没了....伤心中.................................................. 晕呐,原来在下节视频有源代码.............我的币币呐....................................................... 分不够。。。。。。。。。。。。。。。。。。 真是难得给力的帖子啊。 鱼币不够，下载不了，哎…… 下载下，20币没了 好可惜，鱼币不够啊{:10_243:}
页:
[1]