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

test

 
w012917
一般會員


發表:1
回覆:1
積分:0
註冊:2010-03-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-03-29 12:58:05 IP:203.64.xxx.xxx 訂閱

test


[code delphi]
procedure TForm1.btnCheckClick(Sender: TObject);
var i,j,k,g,xTmp,a_Num,b_Num:integer;
begin
xTmp:=strtoint(Edit2.text);
for i:=1 to 4 do
begin
xN2[i]:=xTmp mod 10;
xTmp:=xTmp div 10;
end;
if ((xN2[1]=xN2[2])or(xN2[1]=xN2[3])or(xN2[1]=xN2[4])or
(xN2[2]=xN2[3])or(xN2[2]=xN2[4])or(xN2[3]=xN2[4])) then
begin
label1.caption:='格式錯誤,請重新輸入猜值';
end
else
begin
label1.caption:='格式正確, 請進行下ㄧ步';
xTmp:=strtoint(Edit1.text);
for i:=1 to 4 do
begin
xN1[i]:=xTmp mod 10;
xTmp:=xTmp div 10;
end;
if ((xN1[1]=xN1[2])or(xN1[1]=xN1[3])or(xN1[1]=xN1[4])or
(xN1[2]=xN1[3])or(xN1[2]=xN1[4])or(xN1[3]=xN1[4])) then
begin
label1.caption:='格式錯誤,請重新輸入猜值';
end
else
begin
label1.caption:='格式正確, 請進行下ㄧ步';
end;

[/code]
系統時間:2017-10-24 15:54:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!