◆★。.＾×*＠ Delphi全体版主祝朋友们新年快乐，万事如意!

偶先来
firetoucher Delphi版最“小”的大版主
祝大家猴年发大财，金条象monkey king身上的金毛一样多：）
我最想说的话：谢谢大家－－所有我认识和认识我的朋友们，谢谢！
自己今年的感受：哎，惭愧(firetoucher.blogger.cn)
对自己版主工作的评价：工作力度仍不够（平时比较忙）
写一段程序等等，给大家当新年礼物－－－－现在在机房，除了游戏什么都没有，以后补上：）

http://mp3.baidu.com/r?url=http://myjxta.cosoft.org.cn/zf.mp3______________________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……{言有尽而意无穷，余意尽在不言中……}
______________________________________________________________________________

顶～～～～～～～～～～～～～～～作为Delphi版最小的小斑竹，我也拜个早年，祝大家365天天天快乐8760小时时时开心525600分分分好运31536000秒秒秒精彩缤纷给自己最想说的话就是希望自己的大学保送工作能够成功，呵呵今年运气不怎么好，就是年底好些，因为GF和大学都快到手了 :D深感自己斑竹工作做的不够努力，实在不够努力。。程序：
//祝所有回复这个帖子的人恭喜发财
var All:TThread;i:integer;
procedure IncreaseMoney(var APocket:TPocket);
begin
APocket.Money:=APocket.Money*2;
end;begin
All:=ThisThread.GetAllReplys();
For i:=0 to All.Count -1 do
IncreaseMoney(All[i].Author.Pocket);
end.
;祝所有回复这个帖子的人笑口常开
PROC ChangeState STDCALL Pocket:PPocket
MOV EAX,Pocket
ASSUME EAX:PTR PPocket
MOV [eax].State,stHappy
ASSUME EAX:NOTHING
RET
ENDP ChangeStateLOCAL All:PThread
MOV EAX,ThisThread
CALL TThread.GetAllReplys
MOV All,EAX
CALL TThread.FGetCount
MOV ECX,EAX
NEXT:
CMP ECX,0
JE END
MOV EAX,All
CALL TThread.FGetItems
CALL TThread.FGetAuthor
CALL TPerson.FGetPocket
PUSH EAX
CALL CHANGE_STATE
DEC ECX
JMP NEXT
END:/*祝所有回复这个帖子的人身体健康*/
#include<vector>
using namespace std;
vector<CThread*> All=ThisThread->GetAllReplys;
vector<CThread*>::iterator iter;
for(iter=All->begin();iter!=lines->end();iter++)
(*iter)->Author->setHealthy(100.00);

'祝所有人美梦成真
Dim All() As TThread,i As Integer
All=ThisThread.GetAllReplys
For i=LBound(All) to UBound(All)
All(i).Author.Lucky=100
Next

<xsl:template match="/">
<xsl:for-each select="/ThisThread/Replys">
<xsl:call-template name="SetMaxAge">
<xsl:with-param name="index" select="position()"/>
<xsl:with-param name="value" select="120"/>
</xsl:call-template>
</xsl:for-each>
</xsl:template>

1　给大家拜个早年! 大家过年好！2　说一句自己最想说的话（别太长）：希望大家在新的一年里有更长远的发展！3　自己今年的感受：今年有进步，希望明年会更好！4　对自己版主工作的评价：还是很努力的，基本每天都上来瞧一下，空闲时间都放到这里了，自己能学些东西，帮助了朋友的话，更是一种快乐！5　写一段程序等等，给大家当新年礼物：礼物嘛，圣诞都送过了，不过不是自己写的： http://expert.csdn.net/Expert/topic/2597/2597324.xml?temp=.2788813 不过firetoucher (风焱)大哥不说，等几天也要送，我的串口通讯控制器马上要更新了。

1　给大家拜个早年
   {心情开心是最重要的，做程序员的大都是单身，所以，祝福CSDN的朋友们早日过上只羡鸳鸯不羡仙的生活；早日买上房子；另：祝家中一切平安}
2　说一句自己最想说的话
   {你是开心的，我就是快乐的}
3　自己今年的感受　　
   {言有尽而意无穷，余意尽在不言中......}
4　对自己版主工作的评价　　
   {没有能力，心有余而力不足}
5　写一段程序等等，给大家当新年礼物　
   {caption := ^(^!^0^0^9^?^.^%^7^?^9^%^!^2}

希望大家在新的一年里能有更大的进步！
也祝愿所有的CSDN的朋友们能开开心心的度过每一天！
happy everyday!

希望DELPHI版人气越来越旺，大家水平越来高
工资也越来越高！

也祝斑竹們:happy new year!

原来ehom(？！) 的星这么多，跑到这里才看见：）大家新年都快乐！^_&

作为Delphi版最没出息的小版主，偶也向大家祝贺一下新年。
一贺：大家新年新气象，新年新风貌
二贺：大家新年发大财，新年行好运
三贺：大家新年身体好，汽车满地跑
四贺：大家新年全家欢，合家乐团团
五贺：大家新年工作好，桃花运不少
六贺：大家新年仕途顺，争取多职薪

我是多媒体版最小的版主 hehe^^ 平时爱傻笑....1　给大家拜个早年 ...... 正准备多媒体版结帖子（两个月前的^^!）最给大家的一个小礼物
2　说一句自己最想说的话（别太长）过年大家要旺旺哦！！（不要扔我鸡蛋..）
3　自己今年的感受（累！就一个字我只说一次）
4　对自己版主工作的评价（CSDN的FAQ管理怎么总有问题？！）只能说一般般，太我能帮的上的都帮了...
5　写一段程序等等，给大家当新年礼物
while(1)
{
printf("快乐哦，这个算不算^^!";
}

好啊...来这里这么久了..才第一次见到这么多版主在同一贴子..
好高兴啊..
自己水平还很索...
所以希望自己能得到版主们的帮助啊..
祝所有delphi版主们新年快乐啊..

1 现在拜年，是不是太早了一些啊……：）
2 大家共同进步，一起发财：）
3 道路是曲折的，前途是光明的
4 惭愧，太忙了，可能做的不太好
5 没有什么拿得出手的代码，随便找一个吧：//创建一个临时的空ADODATASET
//调用方式：CreateDataSet(ADODataSet,['string','int','string'],['field1','field2','field3'],20);
procedure CreateDataSet(ADODataSet: TCustomADODataSet; DataType:array of string; FieldName :array of string; AWidth :integer);
const
  XMLRowDefine =
#13#10' <s:AttributeType name=''%s'' rs:number=''%d'' rs:nullable=''true'' rs:writeunknown=''true''>' +
#13#10' <s:datatype dt:type=''%s'' dt:maxLength=''%d'' rs:precision=''10''/>' +
#13#10' </s:AttributeType>';
var
  XMLData:TStringList;
  i:integer;
  fname:string;  XML :string;
  Width :integer;
begin
  fname := FormatDateTime('\yyyymmddhhnnsszzz', Now);
  XMLData := TStringList.Create;  XML := '';
  FOR I:=0 to High(Datatype) do
  begin
    if DataType[i] = 'string' then Width := AWidth
    else
      Width := 8;
    XML := XML + Format(XMLRowDefine, [IntToStr(i), i+1, DataType[i], Width]);
  end;  XMLData.Text :=
#13#10'<xml xmlns:s=''uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882''' +
#13#10' xmlns:dt=''uuid:C2F41010-65B3-11d1-A29F-00AA00C14882''' +
#13#10' xmlns:rs=''urn:schemas-microsoft-com:rowset''' +
#13#10' xmlns:z=''#RowsetSchema''>' +
#13#10'<s:Schema id=''RowsetSchema''>' +
#13#10' <s:ElementType name=''row'' content=''eltOnly'' rs:updatable=''true''>' +
  XML +
#13#10' <s:extends type=''rs:rowbase''/>' +
#13#10' </s:ElementType>' +
#13#10'</s:Schema>' +
#13#10'<rs:data>' +
#13#10'</rs:data>' +
#13#10'</xml>';
  XMLData.SaveToFile(fname);  try
    ADODataSet.Close;
    ADODataSet.LoadFromFile(fname);    for i:=0 to High(FieldName) do
    begin
      if i<ADODataSet.FieldCount  then
        ADODataSet.Fields[i].DisplayLabel := FieldName[i];
    end;
  except
  end;
  DeleteFile(fname);
end;

1　给大家拜个早年2　说一句自己最想说的话（别太长）－－什么时候中500w阿 3　自己今年的感受－－有点累变化比较大4　对自己版主工作的评价－－不太称职：（ 5　写一段程序等等，给大家当新年礼物  while 年分<>0 do
  begin
    每一天:= ‘开心’；
    存款:=999999999999999999999999999999999999999999999999999999999999999999
  end;

duxin(小伍) 你说的太好了。(2　说一句自己最想说的话（别太长）－－什么时候中500w阿 )会中的，在2004年01月01日这一天看到你这句话的人都会中的。

to all:
Happy new year!!接分啊...........

wo ye bu shi ban zhu !

各位斑竹辛苦了哦！！！
新年快乐
money多多
女朋友一个
哈哈哈哈

1　给大家拜个早年现在已经不早了呀,都6点多了2　说一句自己最想说的话（别太长）
for (int i=0;i<10000000;i++)
{
Run("Show Me the money");
}3　自己今年的感受
学了不少东西,正在慢慢学C++4　对自己版主工作的评价
-100000 star
5　写一段程序等等，给大家当新年礼物
coding

新年HAPPY 进步每一天！！！！！！！！！1

明年就是我的本命年，希望我自己可以有新的进步。
作为Object Pascal 版块的小斑竹，深深地认识到自己的不足，希望在新的一年内，可以和各位朋友一起进步，向各位高手多多学习！希望各位Delphi版块的朋友以及CSDN的众多网友新年有新的收获，多多支持CSDN网站！新年愉快！
工作顺利！
事业有成！
生活美满幸福！

又大一年了。
要总结一下先。
HAPPY NEW YEAR.

1　给大家拜个早年
   {心情开心是最重要的，做程序员的大都是单身，所以，祝福CSDN的朋友们早日过上只羡鸳鸯不羡仙的生活；早日买上房子；另：祝家中一切平安}
2　说一句自己最想说的话
   {你是开心的，我就是快乐的}
3　自己今年的感受　　
   {言有尽而意无穷，余意尽在不言中......}
4　对自己版主工作的评价　　
   {没有能力，心有余而力不足}
5　写一段程序等等，给大家当新年礼物　
   {caption := ^(^!^0^0^9^?^.^%^7^?^9^%^!^2}

贺
祝大家想中奖的中奖，想抱mm的抱mm

Michael Learns To Rock - That's Why You Go Away

　
That's Why You Go Away
(Jascha Richter)Baby won't you tell me why there is sadness in your eyes
I don't wanna say goodbye to you
Love is one big illusion I should try to forget
but there is something left in my headYou're the one who set it up now you're the one to make it stop
I'm the one who's feeling lost right now
Now you want me to forget every little thing you said
but there is something left in my headChorus:I won't forget the way you're kissing
The feeling's so strong were lasting for so long
But I'm not the man your heart is missing
That's why you go away I knowYou were never satisfied no matter how I tried
Now you wanna say goodbye to me
Love is one big illusion I should try to forget
but there is something left in my headChorus:I won't forget the way you're kissing
The feeling's so strong were lasting for so long
But I'm not the man your heart is missing
That's why you go away I knowSitting here all alone in the middle of nowhere
Don't know which way to go
There ain't so much to say now between us
There ain't so much for you
There ain't so much for me anymoreChorus:I won't forget the way you're kissing
The feeling's so strong were lasting for so long
But I'm not the man your heart is missing
That's why you go away I knowEMI Casadida Music Publ. DK 1995Download Address
http://music.fancysky.net/data/qt/heji/oumeihuaijiu/track11.mp3
**********************************************************************************
我在梦里听了一次又一次，醒来时发现自己泪流满面......痛苦、失落的2003年将要过去，又踏入新的一年了，我的感情归宿会在哪儿呢？

调试易

◆★。.＾×*＠ Delphi全体版主祝朋友们新年快乐，万事如意!

解决方案 »