如何用delphi 制作气泡程序!!(50分)

J

jin1113

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样用delphi 制作气泡程序!!
 
气泡程序???
 
冒泡排序吧?不难,
先产生n个随机数,
然后拷贝数据结构上的算法,
呵呵。多的很。
 
是冒泡法排序吧?
我这儿一段代码,是直接从自己的程序中copy来的,没有修改,你参考一下吧。
var
v_rs_zc:array[1..9] of integer
//人数(主次图用)
v_bz_zc:array[1..9] of real
//比重
.............
{对v_rs_zc进行排序}
procedure zct_sort;
var
i,j,T,N:integer;
T1:string;
Begin
N:=9
//个数
For j:=1 to N-1 do
For i:=1 to N-j do
begin
If v_rs_zc<v_rs_zc[i+1] Then
begin
T:=v_rs_zc;
v_rs_zc:=v_rs_zc[i+1]
//人数
v_rs_zc[i+1]:=T;
T1:=v_gz;
v_gz:=v_gz[i+1]
//工种类别
v_gz[i+1]:=T1;
end;
end;
end;
 
气泡冒泡呵开玩笑!
 
我记得delphi的demo 下就有各种排序的例子。不用找别的
 
应该定时产生随机数,
而且最好对每个随机都放在线程中。
根据随机数据和大小,来设定它的冒泡速度。
 
我说的气泡程序就是当鼠标放在按钮上会有浮动窗口提示:类似金山词霸的抓词!!
谢谢各位的回答!!
 
据我所知,在WIN2K下可以方便的实现,在WIN98下不知道怎么办,学习!
 
这叫 hint,很容易实现!!!
设置按钮的两个属性即可: ShowHint:=true
hint:='abcdef';
 
纠正一下,
我不知道气泡程序是什么,
但一定不是hint ,
 
在Delphi中的Demo中又一个讲多线程的例子,里面有关于起泡法的算法。
 
jsxjd:的方法基本上是可行的(先加10分)!!可是他不是气泡形状的!!
能否让他多层显示呢??
能不能把他做成像气泡形状的:
有没有谁能通过APi函数实现的!!
能不能做成类似金山词霸的浮动窗口,并能实现一些选择功能??
拜托各位了!!
 
老兄,你也太弱了吧,用DELPHI竟然不知道hint???!!!
看看我上面说的吧,好象在WIN98下是实现不了的呀,在WIN2K和WINXP下
倒是不难。
 
那么请你们给出实现的方法吧?
 
多人接受答案了。
 
顶部