📄 unit1.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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -