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

以下的程式碼是什麼意思??!!

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


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-02-13 01:19:24 IP:202.86.xxx.xxx 訂閱
我真的不懂!!!請大家多多幫忙!!!!!!
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;
Answer:=Table1.FieldByName('Answer').AsString;
end
else
ShowMessage('資料不存在');
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// rand1:=9;
Answer:='';
SelectAns:='';
AnsYN:=True;
BtnMove:=False;
randNum:=27;
hidetext;
label1.Caption:='';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
count:=1;
Choice(rand1);
end;

procedure TForm1.imageaClick(Sender: TObject);
begin
playsound;
if not AnsYN then
begin
imagea.Picture.LoadFromFile('z:\games\ani\boata.jpg');
SelectAns:='A';
AnsYn:=True;
questionSel;
end;
end;

procedure TForm1.imagebClick(Sender: TObject);
begin
Playsound;
if not AnsYN then
begin
imageb.Picture.LoadFromFile('z:\games\ani\boatb.jpg');
SelectAns:='B';
AnsYn:=True;
questionSel;
end;
end;

procedure TForm1.ImagecClick(Sender: TObject);
begin
Playsound;
if not AnsYN then
begin
imagec.Picture.LoadFromFile('z:\games\ani\boatC.jpg');
SelectAns:='C';
AnsYn:=True;
questionSel;
end
end;
pceyes
尊榮會員


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-02-13 15:44:34 IP:220.141.xxx.xxx 訂閱
Procedure TForm1.Choice(var Rand:Integer) ;
它大概在說用亂數取一個值, 然後到table1搜尋資料
找到以後分別在
label2
SelectA
SelectB
SelectC
Answer
顯其結果,
只有這個比較複雜, 其他沒什麼。
------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-02-13 15:46:13, 註解 無‧
hi9413
一般會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-02-13 23:17:23 IP:122.100.xxx.xxx 訂閱
下面主要是什麼意思???

HideBoat;


count:=1;
Choice(rand1);
pceyes
尊榮會員


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-02-14 06:49:56 IP:220.141.xxx.xxx 訂閱
1. 您給的程序未完成(有寫但沒有附上完整程式沒有傳入參數,且就算有加,在procedure choice()內也沒有作用,可以拿掉。

===================引 用 hi9413 文 章===================
下面主要是什麼意思???

HideBoat;


count:=1;
Choice(rand1);
------
努力會更接近成功
hi9413
一般會員


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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2008-02-14 13:03:02 IP:125.31.xxx.xxx 訂閱
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Procedure Choice(var Rand:Integer) ;
procedure BitBtn1Click(Sender: TObject);
procedure imageaClick(Sender: TObject);
procedure imagebClick(Sender: TObject);
procedure ImagecClick(Sender: TObject);
procedure ImagedClick(Sender: TObject);
ProceDure HideBoat;
procedure hidetext;
procedure questionSel;
Procedure playsound;
procedure imagebMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ImagedMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ImagecMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure imageaMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);



這些是什麼意思和作用啊??
pceyes
尊榮會員


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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2008-02-14 13:48:00 IP:220.141.xxx.xxx 訂閱
   procedure FormCreate(Sender: TObject);   系統幫我們產生的程序
錄自delphi 7.0 Help(請按F1)
Delphi syntax:
C syntax:
Description
Initializes the dialog when it is first created.
procedure FormCreate(Sender: TObject);
void __fastcall FormCreate(System::TObject* Sender);
Applications should not call FormCreate. It initializes the detail window so that the Details button works correctly.


Delphi syntax:
C syntax:
Description
A control calls MouseMove in response to any of the Windows mouse-move messages (WM_MOUSEMOVE), decoding the message parameters into the shift-key state and position, which it passes in the Shift, X, and Y parameters, respectively.
As the mouse cursor moves across a control, this method is called repeatedly. Each time it is called, it is with the new coordinates that reflect the continuous path of the mouse cursor across the screen real estate covered by the control's visual representation.
------
努力會更接近成功
編輯記錄
pceyes 重新編輯於 2008-02-16 18:31:59, 註解 無‧
pceyes 重新編輯於 2008-02-16 18:35:41, 註解 無‧
pceyes 重新編輯於 2008-02-16 18:36:39, 註解 無‧
系統時間:2024-03-29 7:11:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!