国庆到！祝福大家节日快乐 由于时间有限顺便把斑竹辞了

Question

to Kingron: 
  由于工作很紧新版 http://kingron.myetang.com 也没有出一份力，真是抱歉 :)
  日后补上to windindance: 
  以后就请你多费心了 :)to darzui:
  在我删除你的帖子的时候并没有看见，贴号为1047120的已结贴。
  当然我不会向你说道歉，因为这是的职责。
  但怎么你不应该进行人身攻击。
  你可以通过整理FAQ把信誉分升回来。
  如果你要把这件事看得很重要的话，
  你可以采取攻击我的帐户和邮箱的方式。
  另外，辞职不是因为你，所以你不用感到荣幸。
  :)to all: 
  注意：我只是不做斑竹，还会和往常一样关注CSDN
  网络无限自由，生活也一样！没有绝对的界限。
  最后还是祝福大家节日快乐。嘻嘻嘻 齐心协力建设祖国 嘻嘻嘻嘻
//无限位数乘法//技术论坛要有技术文章//加一段，免得被放到非技术区 :)uses StrUtils, Math;function StrLeft(const mStr: string; mDelimiter: string): string;
begin
  Result := Copy(mStr, 1, Pos(mDelimiter, mStr) - 1);
end; { StrLeft }function StrRight(const mStr: string; mDelimiter: string): string;
begin
  if Pos(mDelimiter, mStr) <= 0 then
    Result := ''
  else Result := Copy(mStr, Pos(mDelimiter, mStr) + Length(mDelimiter), MaxInt);
end; { StrRight }function InfiniteAdd(mNumberA, mNumberB: string): string; { 无限位数加法 }
var
  I: Integer;
  T: Integer;
begin
  Result := '';
  if Pos('.', mNumberA) <= 0 then mNumberA := mNumberA + '.'; //没有有小数点补小数点
  if Pos('.', mNumberB) <= 0 then mNumberB := mNumberB + '.'; //没有有小数点补小数点
  I := Max(Length(StrLeft(mNumberA, '.')), Length(StrLeft(mNumberB, '.'))); //整数部分最大长度
  mNumberA := DupeString('0', I - Length(StrLeft(mNumberA, '.'))) + mNumberA; //整数前补0
  mNumberB := DupeString('0', I - Length(StrLeft(mNumberB, '.'))) + mNumberB; //整数前补0
  T := Max(Length(StrRight(mNumberA, '.')), Length(StrRight(mNumberB, '.'))); //小数部分最大长度
  mNumberA := mNumberA + DupeString('0', T - Length(StrRight(mNumberA, '.'))); //小数后补0
  mNumberB := mNumberB + DupeString('0', T - Length(StrRight(mNumberB, '.'))); //小数后补0
  I := I + T + 1; //计算总长度//小数长度和整数长度加上小数点长度
  T := 0; //进位数初始化
  for I := I downto 1 do //从后向前扫描
    if [mNumberA[I], mNumberB[I]] <> ['.'] then begin //不是小数点时
      T := StrToIntDef(mNumberA[I], 0) + T; //累加当前数位
      T := StrToIntDef(mNumberB[I], 0) + T; //累加当前数位
      Result := IntToStr(T mod 10) + Result; //计算当前数位上的数字
      T := T div 10; //计算进位数
    end else Result := '.' + Result; //加上小数点
  if T <> 0 then Result := IntToStr(T mod 10) + Result; //处理进位数
  while Pos('0', Result) = 1 do Delete(Result, 1, 1); //排除整数前无效的0
  while Copy(Result, Length(Result), 1) = '0' do
    Delete(Result, Length(Result), 1); //排除小数后无效的0
  if Copy(Result, Length(Result), 1) = '.' then
    Delete(Result, Length(Result), 1); //排除无效小数点
  if Copy(Result, 1, 1) = '.' then Result := '0' + Result; //处理无0小数情况
  if (Result = '') then Result := '0'; //处理空字符情况
end; { InfiniteAdd }function InfiniteMult(mNumberA, mNumberB: string): string; { 无限位数乘法 }  function fMult(mNumber: string; mByte: Byte): string; { 无限位数乘法子函数 }
  var
    I: Integer;
    T: Integer;
  begin
    Result := '';
    T := 0;
    for I := Length(mNumber) downto 1 do begin //从后向前扫描
      T := StrToIntDef(mNumber[I], 0) * mByte + T; //累加当前数位
      Result := IntToStr(T mod 10) + Result; //计算当前数位上的数字
      T := T div 10; //计算进位数
    end;
    if T <> 0 then Result := IntToStr(T mod 10) + Result; //处理进位数
  end; { fMult }var
  I: Integer;
  vDecimal: Integer; //小数位数
  T: string;
begin
  Result := '';
  ///////Begin 处理小数
  if Pos('.', mNumberA) <= 0 then mNumberA := mNumberA + '.'; //没有有小数点补小数点
  if Pos('.', mNumberB) <= 0 then mNumberB := mNumberB + '.'; //没有有小数点补小数点
  vDecimal := Length(StrRight(mNumberA, '.')) + Length(StrRight(mNumberB, '.')); //计算小数位数
  mNumberA := StrLeft(mNumberA, '.') + StrRight(mNumberA, '.'); //删除小数点
  mNumberB := StrLeft(mNumberB, '.') + StrRight(mNumberB, '.'); //删除小数点
  ///////End 处理小数
  T := '';
  for I := Length(mNumberB) downto 1 do begin
    Result := InfiniteAdd(Result, fMult(mNumberA, StrToIntDef(mNumberB[I], 0)) + T);
    T := T + '0';
  end;
  Insert('.', Result, Length(Result) - vDecimal + 1);
  while Pos('0', Result) = 1 do Delete(Result, 1, 1); //排除整数前无效的0
  while Copy(Result, Length(Result), 1) = '0' do
    Delete(Result, Length(Result), 1); //排除小数后无效的0
  if Copy(Result, Length(Result), 1) = '.' then
    Delete(Result, Length(Result), 1); //排除无效小数点
  if Copy(Result, 1, 1) = '.' then Result := '0' + Result; //处理无0小数情况
  if (Result = '') then Result := '0'; //处理空字符情况
end; { InfiniteMult }procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text := InfiniteMult(Edit1.Text, Edit2.Text);
end;

Answer 1

唉，终于还是辞了......
祝 伟大的版主 ＊＊＊＊＊ zswang (伴水)(编程乃艺术) ＊＊＊＊＊
节日快乐！！！

Answer 2

zswang (伴水)(编程乃艺术)  
这么多渴望的眼睛看着你，你就这样逃避吗？？？

Answer 3

To:windindance
来这儿的人都是帮你的.
是吗?
至少我是.
嘻嘻,我是菜鸟,不过.
TO:zswang:
大虾就是不一样,临走也给我好东西.
常来,就好!

Answer 4

(*///////
编号： 895 发送者 hcat1999 发送时间 2002-9-29 18:00:03 删除  回复  
内容 改版期间不处理斑竹事情，请稍后申请
----------------------------------------------------------------
原贴内容：
Delphi斑竹 辞职 :)
http://www.csdn.net/expert/topic/1064/1064652.xml?temp=.7048456 
///////*)while not 改版期间.Eof do 申请;

Answer 5

(*///////
编号： 895 发送者 hcat1999 发送时间 2002-9-29 18:00:03 删除  回复  
内容 改版期间不处理斑竹事情，请稍后申请
----------------------------------------------------------------
原贴内容：
Delphi斑竹 辞职 :)
http://www.csdn.net/expert/topic/1064/1064652.xml?temp=.7048456 
///////*)

Answer 6

为什么就因为在北京忙?foxnt不也不怎么来吗?

Answer 7

又少了位热心的班主，可惜
zswang给我印象最深的还是你写作风格，呵呵，很有特点，不知如何形成的？
当然还有“猛料”中一大堆的函数，看得我“眼花缭乱”，呵。
哦不知到北京那现在是做哪方面的程序，怎么会用这些函数？国庆快乐

Answer 8

如果能让foxnt下课，我可以当两个月的版主。

Answer 9

to yangguo_god: 遗憾的是没有好好整理Delphi的FAQ和专题 :)
to windindance, sysroger: 没有什么都精通的人，多多交流 :)
to D_Q: 时间少,把管理的时间赋值给回贴的时间 :)
to copy_paste: 最开始学pascal就深刻了N.Wirth所提倡的编程风格 :)
to pazee: 理解万岁 :)
to windofsun: 明天还会升起来 :)
to ihihonline: 到北京来玩不要忘记找我,管你吃住 :)
to ybli: 网络无限自由 :)
to Drate, ilang: 又不是永远不回来,说不定哪天发财,就有时间灌了 :)
to ToUpdate: 需要理由吗 :)
to wanggenggz: 多谢到北京来你对我的照顾 :)
to yuzhantao:  :)
to CSDN:  感谢为大家提供一个优美专业的技术交流的平台
to all: 工具是次要的,重要的是人,谢谢关注 :)

Answer 10

如果能让foxnt下课，我愿意当两个月的版主。
（注：我跟foxnt素不相识，不过我认为，在其位，谋其政。）

Answer 11

to zjhydx98: 当然 :)
to chechy: 支持！//阿猫曰：“改版期间不处理斑竹事情，请稍后申请” 怎么?杰杰呢 :)

Answer 12

这样也好，我可以专心致志于Borland的程序员大赛。
好像Borland大赛改题目了，只要是应用程序就可以参加，显然他们也注意到Delphi/C++Builder/Kylix不适合Web编程。
但是，我现在已是箭在弦上，不得不和JBuilder为伍了。

Answer 13

我个人人为zswang是所有斑竹当中最好的一个！！！（最主要的原因是他把管理的时间赋值给回贴的时间：）））））））不过人各有志，只好祝他一路走好！好人一声平安！

Answer 14

chechy(为程序而奋斗):改题目了吗?好像没有吧(至少今天在官方网站上还没改)!要不...麻烦会很多的,不知道的人挺吃亏!呵呵!^_^

Answer 15

确实修改了，下面的链接就是：
http://www.zdnet.com.cn/developer/news/story/0,2000081594,39063100,00.htm修改题目对很多人确实不合理，但是，我觉得当初命题就不合理。除了Java和.net适合用面向对象开发Web程序外，其他的工具，我还没有注意到它们有这个特性。

Answer 16

还是应该以官方消息为准,谁能保证那不是假消息?如果是真的,很多人都不知道啊,这绝对不公平!用DELPHI最大的特点(不知道算是优势吗)就是包罗万象,为什么不适合?举个例子:用DELPHI开发COM,ASP调用,算不算DELPHI开发的WEB程序?虽然Borland公司没为我们提供一个平台,但在其他平台下,配合和应用其它技术,应该可以用DELPHI开发出一流的WEB系统!

Answer 17

我的意思是面向对象技术，Delphi做不到。
Java有j2ee，而.net的ASP.NET都是可以用面向对象技术的，而asp无法做到。
即便是COM，也要设计精巧，才可以。此外，COM和ASP配和，需要解决调试困难这一个头痛的问题。
上次我就说了，Web Express缺乏对Session，Application的支持。而WebSnap呢？Session仅支持String，而非Object，此外，html中嵌套script，不是一个好的技术方法，WebSnap也不可取。种种功能的限制，约束了Delphi在Web的发展。
和Delphi在应用程序上的成就相比，Web实在太弱了。（我只是实话实说，挨骂就挨骂，我不怕的）

Answer 18

zswang斑竹真的辭職,是delphi論壇的巨大損失!

Answer 19

chechy大侠，我现在也在搞JAVA，不过还没有到J2EE和EJB的境界，只是Application而已（现在也开始看JSP）。可否介绍点学J2EE经验？你说“不得不和JBuilder5”为伍，好像很无奈？

Answer 20

zswang (伴水)兄﹐很久就想問你一聲﹐但一直覺得冒昧﹐可現在你要走了﹐還是冒昧問一句吧﹐你是湖南的嗎﹖（希望你不要見怪）
       祝節日快樂﹗

Answer 21

SayForever(恒):伴水好像是贵州人？或在贵州呆过？说错了别怪我：））））））

Answer 22

看了这个帖子
不知怎么会有种莫名其妙的伤感
我来CSDN有一个多月的时间
给我印象最深的是  zswang (伴水)(编程乃艺术)  其人
水平高是大家有目共睹的，
但让我最佩服的是不摆高人的谱
能够认真的帮助我
因为我的水平很差有时候提的问题可以用幼稚来形容
但  zswang (伴水)(编程乃艺术)  从来都是认真解答
冲这点我就欣赏你这个人的为人品质
在不多说了
总之一点希望你好人一生平安
国庆节好好休息休息吧！
谢谢你的帮助
记得常来CSDN呀

Answer 23

CoolSlob的真诚告白：(2002-09-30 11:16:40)   CoolSlob
小虫：伴水辞职了，DELPHI的热心版主走了
发信人：[phone]
发送于：2002.9.29 18:21:23
-------------------------------------
CSDN里的Drate是我的同学~
你走的事也是他昨天通过手机短消息告诉我的.
不知道你的辞职跟我上次发的贴有多大关系.总觉得很内疚的
本来上次想跟你说一声，那张贴你不要回复（主要是为了避嫌）~~
本来上次也想给你回复一个消息，谢谢你中秋节专门发来的“月饼”:)
对于上次我发的贴，我只能说抱歉
对于你的走，我只能说遗憾，不便挽留，无法挽留~只能叫Drate代我回复

Answer 24

坚决不批准zswang (伴水)(编程乃艺术)辞职

Answer 25

zswang (伴水)看了这些应该很感动，知足了。
这应该算是对他最大的认可，此时他看了这帖子可能也无话可说了……csdn能否增加一个针对历任斑竹的记录，毕竟他们为论坛付出过很多。

Answer 26

还有我不知道如何整理FAQ，
所以我的信誉一直只有100分！

Answer 27

to CoolSlob: 没有来深圳和你一起睡大街烧馒头真遗憾。你要等我，就把馒头先放在冰箱里 ～～ :)
to erp2: 以前一直都没有注意怎么方便的审核FAQ，今天才发现，一看未审核的贴子还很多！离职还有一段时间，就尽量多审核一点，也不知道到哪些是你提交的，顺着排吧～～另外如果FAQ被打回，审核人可是要扣信誉分的！所以要花时间看 :)
to liang_z: 手机过国庆就没有效了，新的工作环境还行吧～要全力以赴！没有绝对的好也没有绝对的坏，迈出流浪第一步 :)

Answer 28

现在才体会到为什么CoolSlob会说：‘错过了一年中最好的时光’当你热心帮助别人时，我在出差，当你‘急流勇退’时，我已回来，当你要走时，我已早走...所以你不认识我。常回来，CSDN需要你，节日快乐!