全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:749
推到 Plurk!
推到 Facebook!

Choice應在版面中的哪裡輸入???

答題得分者是:pceyes
hi9413
一般會員


發表:9
回覆:16
積分:5
註冊:2008-02-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-02-25 23:29:04 IP:125.31.xxx.xxx 訂閱
這個Choice應在版面中的哪裡輸入??

Procedure TForm1.Choice(var Rand:Integer) ;
var
r1,r2,randomNo:Integer;
begin
label1.Caption:=IntToStr(count);
HideBoat;
SelectAns:='';
AnsYN:=False;
randomNo:=Random(randNum);
While randomNo=0 do
begin
randomNo:=Random(randNum);
end;
if count=1 then
begin
r1:=randomNo;
r2:=0;
end
else if count=2 then
r2:=randomNo ;
while r1=r2 do
begin
randomNo:=random(randNum) 1;
r2:=randomNo;
end;
if Table1.FindKey([IntToStr(randomNo)]) then
begin
label2.caption:=table1.Fields[1].asString;
SelectA.Caption:=Table1.FieldByName('ChoiceA').AsString;
SelectB.Caption:=Table1.FieldByName('ChoiceB').AsString;
SelectC.Caption:=Table1.FieldByName('ChoiceC').AsString;
SelectD.Caption:=Table1.FieldByName('ChoiceD').AsString;
Answer:=Table1.FieldByName('Answer').AsString;
end
else
ShowMessage('資料不存在');
end;
max5020
資深會員


發表:26
回覆:277
積分:320
註冊:2003-06-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-02-26 09:07:53 IP:116.25.xxx.xxx 訂閱
真是看不懂的問題, 要回答也很難吧 ??
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-02-26 21:01:47 IP:122.127.xxx.xxx 訂閱
Procedure TForm1.Choice(var randNum才對,否則該無用),
另外,randNum在這個程序中,也不知它值從何而來,於是緃使你知道要從何輸入,亦無用處(因為Rand:Integer) ;
var
r1,r2,randomNo:Integer;
begin
label1.Caption:=IntToStr(count);
HideBoat;
SelectAns:='';
AnsYN:=False;
randomNo:=Random(randNum);
end;
if count=1 then
begin
r1:=randomNo;
r2:=0;
end
else if count=2 then
r2:=randomNo ;
while r1=r2 do
begin
randomNo:=random(randNum) 1;
r2:=randomNo;
end;
if Table1.FindKey([IntToStr(randomNo)]) then
begin
label2.caption:=table1.Fields[1].asString;
SelectA.Caption:=Table1.FieldByName('ChoiceA').AsString;
SelectB.Caption:=Table1.FieldByName('ChoiceB').AsString;
SelectC.Caption:=Table1.FieldByName('ChoiceC').AsString;
SelectD.Caption:=Table1.FieldByName('ChoiceD').AsString;
Answer:=Table1.FieldByName('Answer').AsString;
end
else
ShowMessage('資料不存在');
end;
------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-02-26 21:03:22, 註解 無‧
系統時間:2024-03-28 18:10:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!