对不起，我也是没有办法的呀（因为我想发表上几篇文章，但没有分发呀），以前的有人看了也不给分。不过现在我可以了，先奉献大家一篇(100分)

[?][red] [/red]

不会是在对倒吧？

靠！你真顽强，我一边删贴，你一边又申请帐号开贴给自己加分！
[purple]我国庆想给大家一点钱花以表示我的祝福，但是我的工资只够自己租房和吃饭，
所以我先抢劫一次银行，对不起哦。[!][/purple]
再说这种文章你发几次干嘛？

怎么能是对倒呢？
不要乱讲话
不过是走错门了
他本来是想在csdn里这套把戏的

tkggai:
wjiachun叫你开路
你也做了件好事，文章不错。[]

越来越有趣了，我也来关注一把。[][][]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms,
StdCtrls, Mask, ToolEdit, CurrEdit, AHMTButton;
type
TForm1 = class(TForm)
edit1: TRxCalcEdit;
Edit2: TEdit;
AHMButton1: TAHMButton;
Label1: TLabel;
Label2: TLabel;
procedure edit1Change(Sender: TObject);
procedure AHMButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}


Function rmbzh(const hjnum:double):String;
var ChineseNumber:array [1..9,0..3] of string[4];
JiaoNumber,FenNumber:array [1..9] of string[4];
i,WhereP,T,PT:integer;
TempString,StrZheng:string;
SString,DString:String;
begin
SString:=FloatToStr(hjnum);
ChineseNumber[1,0]:='壹';
ChineseNumber[1,1]:='壹拾';
ChineseNumber[1,2]:='壹佰';
ChineseNumber[1,3]:='壹仟';
ChineseNumber[2,0]:='贰';
ChineseNumber[2,1]:='贰拾';
ChineseNumber[2,2]:='贰佰';
ChineseNumber[2,3]:='贰仟';
ChineseNumber[3,0]:='叁';
ChineseNumber[3,1]:='叁拾';
ChineseNumber[3,2]:='叁佰';
ChineseNumber[3,3]:='叁仟';
ChineseNumber[4,0]:='肆';
ChineseNumber[4,1]:='肆拾';
ChineseNumber[4,2]:='肆佰';
ChineseNumber[4,3]:='肆仟';
ChineseNumber[5,0]:='伍';
ChineseNumber[5,1]:='伍拾';
ChineseNumber[5,2]:='伍佰';
ChineseNumber[5,3]:='伍仟';
ChineseNumber[6,0]:='陆';
ChineseNumber[6,1]:='陆拾';
ChineseNumber[6,2]:='陆佰';
ChineseNumber[6,3]:='陆仟';
ChineseNumber[7,0]:='柒';
ChineseNumber[7,1]:='柒拾';
ChineseNumber[7,2]:='柒佰';
ChineseNumber[7,3]:='柒仟';
ChineseNumber[8,0]:='捌';
ChineseNumber[8,1]:='捌拾';
ChineseNumber[8,2]:='捌佰';
ChineseNumber[8,3]:='捌仟';
ChineseNumber[9,0]:='玖';
ChineseNumber[9,1]:='玖拾';
ChineseNumber[9,2]:='玖佰';
ChineseNumber[9,3]:='玖仟';
JiaoNumber[1]:='壹角';
JiaoNumber[2]:='贰角';
JiaoNumber[3]:='叁角';
JiaoNumber[4]:='肆角';
JiaoNumber[5]:='伍角';
JiaoNumber[6]:='陆角';
JiaoNumber[7]:='柒角';
JiaoNumber[8]:='捌角';
JiaoNumber[9]:='玖角';
FenNumber[1]:='壹分';
FenNumber[2]:='贰分';
FenNumber[3]:='叁分';
FenNumber[4]:='肆分';
FenNumber[5]:='伍分';
FenNumber[6]:='陆分';
FenNumber[7]:='柒分';
FenNumber[8]:='捌分';
FenNumber[9]:='玖分';
WhereP:=0;
StrZheng:='圆';
for i:=1 to Length(SString)do
if SString='.' then
WhereP:=i;
if WhereP=0 then
begin
WhereP:=Length(SString)+1;
StrZheng:='圆整';
end;
PT:=0;{表示前一个字符的值}
TempString:='';
if not((WhereP=1)or(WhereP=2))then
begin
for i:=1 to WhereP-1do
begin
if SString[WhereP-i]='-'
then
TempString:='负'+TempString
else
begin
if SString[WhereP-i]='0' then
begin
if (i=5)or(i=9) then
begin
if i=5 then
TempString:='万'+TempString;
if i=9 then
TempString:='亿'+TempString;
end
else
begin
if PT<>0 then
TempString:='零'+TempString;
end;
end
else
begin
if (i=5)or(i=9) then
begin
T:=(i mod 4)-1;
if T=-1 then
T:=3;
if i=5 then
TempString:=ChineseNumber[StrToInt(SString[WhereP-i]),T]+'万'+TempString;
if i=9 then
TempString:=ChineseNumber[StrToInt(SString[WhereP-i]),T]+'亿'+TempString;
end
else
begin
T:=(i mod 4)-1;
if T=-1 then
T:=3;
TempString:=ChineseNumber[StrToInt(SString[WhereP-i]),T]+TempString;
end;
end;
end;
if SString[WhereP-i]<>'-' then
PT:=StrToInt(SString[WhereP-i]);
end;
end;
if WhereP=2 then
begin
TempString:=ChineseNumber[StrToInt(SString),0];
if SString='0' then
TempString:='零';
end;
if SString<>'' then
TempString:=TempString+StrZheng;//'圆';
if (WhereP<>0) then
begin
if (Length(SString)-WhereP)>0 then
begin
if SString[WhereP+1]<>'0' then
TempString:=TempString+JiaoNumber[StrToInt(SString[WhereP+1])];
if (Length(SString)-WhereP)>1 then
begin
if SString[WhereP+2]<>'0' then
TempString:=TempString+FenNumber[StrToInt(SString[WhereP+2])];
end;
end;
//____________
end;
if SString<>'' then
DString:=TempString
else
DString:='';
rmbzh:=DString;
end;

procedure TForm1.edit1Change(Sender: TObject);
begin
edit2.text:=rmbzh(edit1.value)
end;

procedure TForm1.AHMButton1Click(Sender: TObject);
begin
application.MessageBox('请寄10元，我会立即将源程序Email给您。招商银行一卡通账号：0931-31164446'+chr(13)+'姓名：程东;
交通银行太平洋卡账号：60142850821796906 姓名：程小冬 '+chr(13)+'邮编：730070 地址：兰州市安宁费家营高新区小二黑食品公司 收款人：程小冬'+chr(13)+'主页：http://tkggai.myetang.com Email:tkggai@sina.com或tkggai@china.com','真诚从我们做起!(程东，程小冬都是我，但汇款时不要搞错）',0+64);
end;
end.

我靠，我也开始叫骂了！！！
呵呵！：）

呵呵，这个人叫什么来着，哦，程诚，
一点也不诚嘛，唉，你老爸该被你气死
了！

程诚，怎么大家都不喜欢你
人挺好的吗

这种文章发了只会降低这里的技术含量，想这种初级的骗稿费的文章你应该寄给《XX爱好者》
说补丁可以给你点RMB，在这里只会让大家更不尊重你。

倒!
[!]

0分也可以发表文章呀，真是奇怪的逻辑！

各位，请教个问题：如何使提示框和联众一样的，可以在某个时间后自动关闭

何必你！各位大度点吧！程序员不能急燥也要宽容呀！

哈哈 很久没看到这么好笑的帖子了 我鼓励你 ！！！
[][][][][][][][]

[?][?]

变态！！[]