发表于 2009-1-5 19:48
| 
澶у皬鍐欓噾棰濊浆鎹
鍙戝竷: 2008-6-26 20:32 | 浣滆: admin | 鏌ョ湅: 22娆
width="84%">澶у皬鍐欓噾棰濊浆鎹
濡備笅涓轰竴涓畝鍗曠殑灏忓啓閲戦杞崲涓哄ぇ鍐欑殑鍑芥暟锛屽叾鎬濊矾绠鍗曪紙鍙互璇寸儌鍚э紝灞呯劧鍒╃敤浜嗕綅缃潵杞崲锛夛紝浣嗘槸瀹冨嚑涔庡彲浠ユ棤闄愬埗鐨勮浆鎹紝鍙浣犺兘璇诲緱鍑烘潵鍜屽啓寰楄繘鍘伙細
function Tform1.SmallTOBig(small:real):string;
var SmallMonth,BigMonth:string;
wei1,qianwei1:string ;
wei,qianwei,dianweizhi,qian:integer;
begin
{------- 淇敼鍙傛暟浠ゅ兼洿绮剧‘ -------}
{灏忔暟鐐瑰悗鐨勪綅缃紝闇瑕佺殑璇濅篃鍙互鏀瑰姩-2鍊紏
qianwei:=-2;
{杞崲鎴愯揣甯佸舰寮忥紝闇瑕佺殑璇濆皬鏁扮偣鍚庡姞澶氬嚑涓浂}
Smallmonth:=formatfloat('0.00',small);
{---------------------------------}
dianweizhi :=pos('.',Smallmonth);{灏忔暟鐐圭殑浣嶇疆}
{寰幆灏忓啓璐у竵鐨勬瘡涓浣嶏紝浠庡皬鍐欑殑鍙宠竟浣嶇疆鍒板乏杈箎
for qian:=length(Smallmonth) downto 1 do
begin
{濡傛灉璇诲埌鐨勪笉鏄皬鏁扮偣灏辩户缁瓆
if qian<>dianweizhi then
begin
{浣嶇疆涓婄殑鏁拌浆鎹㈡垚澶у啓}
case strtoint(copy(Smallmonth,qian,1)) of
1:wei1:='澹'; 2:wei1:='璐';
3:wei1:='鍙'; 4:wei1:='鑲';
5:wei1:='浼'; 6:wei1:='闄';
7:wei1:='鏌'; 8:wei1:='鎹';
9:wei1:='鐜'; 0:wei1:='闆';
end;
{鍒ゆ柇澶у啓浣嶇疆锛屽彲浠ョ户缁澶у埌real绫诲瀷鐨勬渶澶у紏
case qianwei of
-3:qianwei1:='鍘';
-2:qianwei1:='鍒';
-1:qianwei1:='瑙';
0 :qianwei1:='鍏';
1 :qianwei1:='鎷';
2 :qianwei1:='浣';
3 :qianwei1:='鍗';
4 :qianwei1:='涓';
5 :qianwei1:='鎷';
6 :qianwei1:='浣';
7 :qianwei1:='鍗';
8 :qianwei1:='浜';
9 :qianwei1:='鍗';
10:qianwei1:='浣';
11:qianwei1:='鍗';
end;
inc(qianwei);
BigMonth :=wei1+qianwei1+BigMonth;{缁勫悎鎴愬ぇ鍐欓噾棰潁
end;
end;
SmallTOBig:=BigMonth;
end;
璋冪敤濡備笅鈥渆dit1.text:=SmallTOBig(1234567890.1234);鈥濅粬鑷姩榛樿灏忔暟鐐瑰悗涓や綅
uses
windows, {鍔犲叆璇ュ彞鎵嶈兘璋冪敤鍑芥暟}
Forms,
Unit1 in 'Unit1.pas'{Form1};
{$R *.RES}
const classname='TForm1'; {澹版槑涓轰富绐椾綋鐨勭被鍚峿
var handle:integer; {鍙橀噺}
begin
{-----------------涓昏涓鸿鍒ゆ柇閮ㄥ垎----------------------}
handle:=findwindow(classname,nil);{鏌ユ壘鏄惁鏈夋绫荤殑绐椾綋}
if handle<>0 then {涓嶄负0鍒欑▼搴忓凡杩愯}
begin
messagebox(0,'璇ョ▼搴忓凡缁忔湁涓涓湪杩愯涓紒','杩愯',0);{鎻愮ず绋嬪簭宸茶繍琛寎
halt; {閫鍑虹▼搴弣
end;
{------------------------------------------------------}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
銆銆璇ョ▼搴忓湪娴嬭瘯鏃剁敱浜嶥elphi涔熺敓鎴愪簡姝ょ被瀹炰緥绐椾綋锛屾墍浠ヤ細鍑虹幇鎻愮ず妗嗭紝鍙湁鍏抽棴Delphi鍚庡崟鐙繍琛岀▼搴忔墠鑳藉疄鐜般
