?? unit1.pas

?? 開發環境:Delphi7 電話號碼算吉兇的小游戲
?? PAS
字號:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, KvLabel,Printers, WinSkinData;

Const
  afilename='c:\STel.txt';
type
  TForm1 = class(TForm)
    KvLabel1: TKvLabel;
    KvLabel2: TKvLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Memo1: TMemo;
    SpeedButton4: TSpeedButton;
    SkinData1: TSkinData;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TelNum,Num:Integer;
  Tel:Real;
  mMm,Mjs:String;
  F:textfile;
implementation

{$R *.dfm}

function mround(R:Real):Integer;
begin
  if frac(r)>=0.5 then Result:=trunc(r)+1 else Result:=trunc(r);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  If Edit1.Text<>'' then
  Begin
  If StrtoFloat(edit1.text)<10000000000 then
   Begin
    TelNum:=Strtoint(edit1.text);
    num:=Telnum mod 80;
   end
  else
   Begin
    Tel:=StrToFloat(edit1.text);
//    Label1.Caption:=FloattoStr(round(tel/10));
    num:=Mround(tel/10) mod 80;
   end;
  case num of
0:mjs:='吉帶兇	得而復失.枉費心機.守成無貪.可保安穩';
1:mjs:='吉	大展鴻圖.信用得固.無遠弗界.可獲成功';
2:mjs:='兇	根基不固.搖搖欲墜.一盛一衰.勞而無功';
3:mjs:='吉	根深蒂固.蒸蒸日上.如意吉祥.百事順遂';
4:mjs:='吉	前途光明.萬事如意.名利雙收.後福重重';
5:mjs:='吉	陰陽和合.生意欣榮.名利雙收.後福重重';
6:mjs:='吉	萬寶雲集.天降幸運.立志奮發.可成大功';
7:mjs:='吉	專心經營.和氣致祥.排除萬難.必獲成功';
8:mjs:='吉	努力發達.貫徹志望.不忘進退.成功可期';
9:mjs:='兇	雖抱奇才.有才無命.獨營無力.財利無望';
10:mjs:='吉	旭日昇天.名顯四方.漸次進展.終成大業';
11:mjs:='吉	草木逢春.枯葉沾露.穩健著實.必得人望';
12:mjs:='兇	薄弱無力.孤立無搖.外祥內苦.謀事難成';
13:mjs:='吉	天賦吉運.能得人望.善用智慧.必獲成功';
14:mjs:='兇	忍得苦難.必有後福.是成是敗.惟靠堅毅';
15:mjs:='吉	謙恭做事.必得人和.大事成就.一定興隆';
16:mjs:='兇	智高志大.歷盡艱難.焦心憂勞.進退兩難';
17:mjs:='吉	排除萬難.有貴人助.把握時機.可得成功';
18:mjs:='吉	經商做事.順利昌隆.如能慎始.百事亨通';
19:mjs:='兇	成功雖早.慎防空虧.內外不合.障礙重重';
20:mjs:='吉	能獲眾望.成就大業.名利雙收.盟主四方';
21:mjs:='吉	專心經營.善用智慧.霜雪梅花.春來怒放';
22:mjs:='兇	秋草逢霜.懷才不遇.憂愁怨苦.事不如意';
23:mjs:='兇	烏雲遮月.暗淡無光.空費心力.徒勞無功';
24:mjs:='吉	錦繡前程.須靠自力.多用智謀.能奏大功';
25:mjs:='吉	天時地利.再得人格.講信修睦.即可成功';
26:mjs:='兇	波瀾起伏.千變萬化.凌駕萬難.必可成功';
27:mjs:='兇帶吉	一成一敗.一盛一衰.惟靠謹慎.可守成功';
28:mjs:='兇	魚臨旱地.難逃惡運.此數大兇.不如更名';
29:mjs:='吉	如龍得雲.青雲直上.智謀奮進.才略奏功';
30:mjs:='兇	吉兇參半.得失相伴.投機取巧.如賽一樣';
31:mjs:='吉	此數大吉.名利雙收.漸進向上.大業成就';
32:mjs:='吉	池中之龍.風雲際會.一躍上天.成功可望';
33:mjs:='吉	不可意氣.善用智慧.如能慎始.必可昌隆';
34:mjs:='兇	災難不絕.難望成功.此數大兇.不如更名';
35:mjs:='吉	中吉之數.進退保守.生意安穩.成就可期';
36:mjs:='兇	波瀾重疊.常陷窮困.動不如靜.有才無命';
37:mjs:='吉	逢兇化吉.吉人天相.風調雨順.生意興隆';
38:mjs:='兇帶吉	名雖可得.利則難獲.藝界發展.可望成功';
39:mjs:='吉	雲開見月.雖有勞碌.光明坦途.指日可期';
40:mjs:='吉帶兇	一盛一衰.浮沉不定.知難而退.自獲天佑';
41:mjs:='吉	天賦吉運.德望兼備.繼續努力.前途無限';
42:mjs:='吉帶兇	事業不專.十九不成.專心進取.可望成功';
43:mjs:='吉帶兇	雨夜之花.外祥內苦.忍耐自重.轉兇為吉';
44:mjs:='兇	雖用心計.事難遂願.貪功好進.必招失敗';
45:mjs:='吉	楊柳遇春.綠葉發枝.沖破難關.一舉成名';
46:mjs:='兇	坎坷不平.艱難重重.若無耐心.難望有成';
47:mjs:='吉	有貴人助.可成大業.雖遇不幸.浮沉不大';
48:mjs:='吉	美化豐實.鶴立雞群.名利俱全.繁榮富貴';
49:mjs:='兇	遇吉則吉.遇兇則兇.惟靠謹慎.逢兇化吉';
50:mjs:='吉帶兇	吉兇互見.一成一敗.兇中有吉.吉中有兇';
51:mjs:='吉帶兇	一盛一衰.浮沉不常.自重自處.可保平安';
52:mjs:='吉	草木逢春.雨過天情.渡過難關.即獲成功';
53:mjs:='吉帶兇	盛衰參半.外祥內苦.先吉後兇.先兇後吉';
54:mjs:='兇	雖傾全力.難望成功.此數大兇.最好改名';
55:mjs:='吉帶兇	外觀隆昌.內隱禍患.克服難關.開出泰運';
56:mjs:='兇	事與願違.終難成功.欲速不達.有始有終';
57:mjs:='吉	努力經營.時來運轉.曠野枯草.春來花開';
58:mjs:='兇帶吉	半兇半吉.浮沉多端.始兇終吉.能保成功';
59:mjs:='兇	遇事猶疑.難望成事.大刀闊斧.始可有成';
60:mjs:='兇	黑暗無光.心迷意亂.出爾反爾.難定方針';
61:mjs:='吉帶兇	雲遮半月.百隱風波.應自謹慎.始保平安';
62:mjs:='兇	煩悶懊惱.事事難展.自防災禍.始免困境';
63:mjs:='吉	萬物化育.繁榮之象.專心一意.始能成功';
64:mjs:='兇	見異思遷.十九不成.徒勞無功.不如更名';
65:mjs:='吉	吉運自來.能享盛名.把握機會.必獲成功';
66:mjs:='兇	黑夜漫長.進退維谷.內外不和.信用缺乏';
67:mjs:='吉	時來運轉.事事如意.功成名就.富貴自來';
68:mjs:='兇	動搖不安.常陷逆境.不得時運.難得利潤';
69:mjs:='吉	思慮周詳.計劃力行.不失先機.可望成功';
70:mjs:='兇	慘淡經營.難免貧困.此數不吉.最好改名';
71:mjs:='吉帶兇	吉兇參半.惟賴勇氣.貫徹力行.始可成功';
72:mjs:='兇	利害混集.兇多吉少.得而復失.難以安順';
73:mjs:='吉	安樂自來.自然吉祥.力行不懈.終必成功';
74:mjs:='吉	最極之數.還本歸元.能得繁業.發達成功';
75:mjs:='吉帶兇	吉中帶兇.欲速不達.進不如守.可保安祥';
76:mjs:='兇	此數大兇.破產之象.宜速改名.以避厄運';
77:mjs:='吉帶兇	先苦後甘.先甘後苦.如能守成.不致失敗';
78:mjs:='吉帶兇	有得有失.華而不實.須防劫財.始保平安';
79:mjs:='兇	如走夜路.前途無光.希望不大.勞而無功';
80:mjs:='吉帶兇	得而復失.枉費心機.守成無貪.可保安穩';
81:mjs:='兇	利不及費.坐食山空.如無智謀.難望成功';
  end;
  Memo1.Lines.Clear;
  Memo1.Lines.Add(Mjs);
  AssignFile(F,aFileName);
  Rewrite(F);
  mMm:=edit1.Text;
  Writeln(F,mMm);
  Writeln(F, mjs);
  CloseFile(F);
  end
  else
    application.MessageBox('暈，這么急啊，還沒輸入電話號碼呢！','提示',MB_OK + MB_DEFBUTTON1);
end;


procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
    application.MessageBox('玲玲！玲玲！我愛你，就象老鼠愛大米！','愛情表白',MB_OK + MB_DEFBUTTON1)
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  application.MessageBox('文件在C:\Stel.txt中','提示',MB_OK + MB_DEFBUTTON1);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then
  Begin
  If Edit1.Text<>'' then
  Begin
  If StrtoFloat(edit1.text)<10000000000 then
   Begin
    TelNum:=Strtoint(edit1.text);
    num:=Telnum mod 80;
   end
  else
   Begin
    Tel:=StrToFloat(edit1.text);
//    Label1.Caption:=FloattoStr(round(tel/10));
    num:=Mround(tel/10) mod 80;
   end;
  case num of
0:mjs:='吉帶兇	得而復失.枉費心機.守成無貪.可保安穩';
1:mjs:='吉	大展鴻圖.信用得固.無遠弗界.可獲成功';
2:mjs:='兇	根基不固.搖搖欲墜.一盛一衰.勞而無功';
3:mjs:='吉	根深蒂固.蒸蒸日上.如意吉祥.百事順遂';
4:mjs:='吉	前途光明.萬事如意.名利雙收.後福重重';
5:mjs:='吉	陰陽和合.生意欣榮.名利雙收.後福重重';
6:mjs:='吉	萬寶雲集.天降幸運.立志奮發.可成大功';
7:mjs:='吉	專心經營.和氣致祥.排除萬難.必獲成功';
8:mjs:='吉	努力發達.貫徹志望.不忘進退.成功可期';
9:mjs:='兇	雖抱奇才.有才無命.獨營無力.財利無望';
10:mjs:='吉	旭日昇天.名顯四方.漸次進展.終成大業';
11:mjs:='吉	草木逢春.枯葉沾露.穩健著實.必得人望';
12:mjs:='兇	薄弱無力.孤立無搖.外祥內苦.謀事難成';
13:mjs:='吉	天賦吉運.能得人望.善用智慧.必獲成功';
14:mjs:='兇	忍得苦難.必有後福.是成是敗.惟靠堅毅';
15:mjs:='吉	謙恭做事.必得人和.大事成就.一定興隆';
16:mjs:='兇	智高志大.歷盡艱難.焦心憂勞.進退兩難';
17:mjs:='吉	排除萬難.有貴人助.把握時機.可得成功';
18:mjs:='吉	經商做事.順利昌隆.如能慎始.百事亨通';
19:mjs:='兇	成功雖早.慎防空虧.內外不合.障礙重重';
20:mjs:='吉	能獲眾望.成就大業.名利雙收.盟主四方';
21:mjs:='吉	專心經營.善用智慧.霜雪梅花.春來怒放';
22:mjs:='兇	秋草逢霜.懷才不遇.憂愁怨苦.事不如意';
23:mjs:='兇	烏雲遮月.暗淡無光.空費心力.徒勞無功';
24:mjs:='吉	錦繡前程.須靠自力.多用智謀.能奏大功';
25:mjs:='吉	天時地利.再得人格.講信修睦.即可成功';
26:mjs:='兇	波瀾起伏.千變萬化.凌駕萬難.必可成功';
27:mjs:='兇帶吉	一成一敗.一盛一衰.惟靠謹慎.可守成功';
28:mjs:='兇	魚臨旱地.難逃惡運.此數大兇.不如更名';
29:mjs:='吉	如龍得雲.青雲直上.智謀奮進.才略奏功';
30:mjs:='兇	吉兇參半.得失相伴.投機取巧.如賽一樣';
31:mjs:='吉	此數大吉.名利雙收.漸進向上.大業成就';
32:mjs:='吉	池中之龍.風雲際會.一躍上天.成功可望';
33:mjs:='吉	不可意氣.善用智慧.如能慎始.必可昌隆';
34:mjs:='兇	災難不絕.難望成功.此數大兇.不如更名';
35:mjs:='吉	中吉之數.進退保守.生意安穩.成就可期';
36:mjs:='兇	波瀾重疊.常陷窮困.動不如靜.有才無命';
37:mjs:='吉	逢兇化吉.吉人天相.風調雨順.生意興隆';
38:mjs:='兇帶吉	名雖可得.利則難獲.藝界發展.可望成功';
39:mjs:='吉	雲開見月.雖有勞碌.光明坦途.指日可期';
40:mjs:='吉帶兇	一盛一衰.浮沉不定.知難而退.自獲天佑';
41:mjs:='吉	天賦吉運.德望兼備.繼續努力.前途無限';
42:mjs:='吉帶兇	事業不專.十九不成.專心進取.可望成功';
43:mjs:='吉帶兇	雨夜之花.外祥內苦.忍耐自重.轉兇為吉';
44:mjs:='兇	雖用心計.事難遂願.貪功好進.必招失敗';
45:mjs:='吉	楊柳遇春.綠葉發枝.沖破難關.一舉成名';
46:mjs:='兇	坎坷不平.艱難重重.若無耐心.難望有成';
47:mjs:='吉	有貴人助.可成大業.雖遇不幸.浮沉不大';
48:mjs:='吉	美化豐實.鶴立雞群.名利俱全.繁榮富貴';
49:mjs:='兇	遇吉則吉.遇兇則兇.惟靠謹慎.逢兇化吉';
50:mjs:='吉帶兇	吉兇互見.一成一敗.兇中有吉.吉中有兇';
51:mjs:='吉帶兇	一盛一衰.浮沉不常.自重自處.可保平安';
52:mjs:='吉	草木逢春.雨過天情.渡過難關.即獲成功';
53:mjs:='吉帶兇	盛衰參半.外祥內苦.先吉後兇.先兇後吉';
54:mjs:='兇	雖傾全力.難望成功.此數大兇.最好改名';
55:mjs:='吉帶兇	外觀隆昌.內隱禍患.克服難關.開出泰運';
56:mjs:='兇	事與願違.終難成功.欲速不達.有始有終';
57:mjs:='吉	努力經營.時來運轉.曠野枯草.春來花開';
58:mjs:='兇帶吉	半兇半吉.浮沉多端.始兇終吉.能保成功';
59:mjs:='兇	遇事猶疑.難望成事.大刀闊斧.始可有成';
60:mjs:='兇	黑暗無光.心迷意亂.出爾反爾.難定方針';
61:mjs:='吉帶兇	雲遮半月.百隱風波.應自謹慎.始保平安';
62:mjs:='兇	煩悶懊惱.事事難展.自防災禍.始免困境';
63:mjs:='吉	萬物化育.繁榮之象.專心一意.始能成功';
64:mjs:='兇	見異思遷.十九不成.徒勞無功.不如更名';
65:mjs:='吉	吉運自來.能享盛名.把握機會.必獲成功';
66:mjs:='兇	黑夜漫長.進退維谷.內外不和.信用缺乏';
67:mjs:='吉	時來運轉.事事如意.功成名就.富貴自來';
68:mjs:='兇	動搖不安.常陷逆境.不得時運.難得利潤';
69:mjs:='吉	思慮周詳.計劃力行.不失先機.可望成功';
70:mjs:='兇	慘淡經營.難免貧困.此數不吉.最好改名';
71:mjs:='吉帶兇	吉兇參半.惟賴勇氣.貫徹力行.始可成功';
72:mjs:='兇	利害混集.兇多吉少.得而復失.難以安順';
73:mjs:='吉	安樂自來.自然吉祥.力行不懈.終必成功';
74:mjs:='吉	最極之數.還本歸元.能得繁業.發達成功';
75:mjs:='吉帶兇	吉中帶兇.欲速不達.進不如守.可保安祥';
76:mjs:='兇	此數大兇.破產之象.宜速改名.以避厄運';
77:mjs:='吉帶兇	先苦後甘.先甘後苦.如能守成.不致失敗';
78:mjs:='吉帶兇	有得有失.華而不實.須防劫財.始保平安';
79:mjs:='兇	如走夜路.前途無光.希望不大.勞而無功';
80:mjs:='吉帶兇	得而復失.枉費心機.守成無貪.可保安穩';
81:mjs:='兇	利不及費.坐食山空.如無智謀.難望成功';
  end;
  Memo1.Lines.Clear;
  Memo1.Lines.Add(Mjs);
  AssignFile(F,aFileName);
  Rewrite(F);
  mMm:=edit1.Text;
  Writeln(F,mMm);
  Writeln(F, mjs);
  CloseFile(F);
  end
  else
    application.MessageBox('暈，這么急啊，還沒輸入電話號碼呢！','提示',MB_OK + MB_DEFBUTTON1);
  end;
end;

end.
?? 文件大小 213 K
?? 上傳用戶 red2years
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#Delphi7 #開發環境 #號碼 #小游戲
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.pas

?? 快捷鍵說明
