表單上有Edit1、Button1、Label1、Label2、Label3、Label4、Label5。運行后在Edit1框中隨機手動輸入一個值（比如說5），單擊Button1后將5保存在Label1上；再次在Edit1框中隨機手動輸入一個值（比如說32），單擊Button1后將32保存在Label2上；再次在Edit1框中隨機手動輸入一個值（比如說49），單擊Button1后將49保存在Label2上；依此類推，Label1--Label5中不允許有重復的值出現。（求高人）
uj5u.com熱心網友回復：
如何獲取Delphi中滑鼠點擊次數------------------------------------------
1 在表單private下宣告FCounter: integer;欄位, 用于計數
2 在表單onCreate中初始化 FCounter := 0;
3 在上述控制元件的onMouseUp中計數(inc(FCounter));
4 什么時候想查看計數了, showmessage(inttostr(Fcounter));
uj5u.com熱心網友回復：
這個描述有點兒繞, 能再描述清晰點兒嗎
uj5u.com熱心網友回復：
莫名其妙的提問，標題跟內容有一毛錢關系么uj5u.com熱心網友回復：
簡單的方法：你將edit1的值保存到一個陣列中，按斬訓圈佇列的形式操作，
不允許陣列中有相同的值就可以了
uj5u.com熱心網友回復：
首先在edit1的onkeydown中寫限制，只能輸入數字。一個全域變數count：integer
在表單的創建或者onshow事件中給count賦值為0
button1的onclick事件中
begin//判斷count的數值
if count=4 then count=0;
if count<>4 then
begin
if label1.text=edit1.text then
begin
showmessage('輸入數重復')；
exit；
end；
…………
//label1到5全部判斷
if count=0 then
begin
label1.text:=edit1.text;
exit;
end;
………………
//label1到5全部判斷賦值
end；
end.
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/149075.html
標籤：語言基礎/算法/系統設計
下一篇：小白求教delphi 隨機函式