心中充满高兴但心中又充满对开始的向往。。升上一级。。，特来散分！！

Question

我升级了，但不是什么所谓的高手，也代表不了什么高手!!只是帮助朋友们多一些而已!!
　　来CSDN已经整整一年了，知道CSDN的网址还是在记忆中已经忘确了的一个好友的热心介绍，从此我就和CSDN结下了不结之缘!!
    在这从中我结交了不少志同道和的朋友，也在这从中学习到了不少的知识经验，丰富了自己的学习方法，打我上CSDN第一次起，每次升一级都要高兴的散分，当然这不是什么跃耀自己，那是我把自己帮助过别人得到的成果和大家一起分享一下，从内心处得到一种被别人认可的一种虚荣!!
    我学习DELPHI的环境非常不优秀，我是一个专科生，在我们大专中我知道有2个学DELPHI的，那一个还是我介绍的，现在已经停步了，而我依然还在深深的努力，因为有父母的期盼和我对我以后的向往，母亲常常带着关心的口吻说：你的得而飞怎么样了？？此时我的心里真是深深的酸楚，只好微笑和应的回答：妈妈放心。说实话，我DELPHI学的时间特别长，2年了，但我的水平真的和时间成反比，我也十分的着急，每当我在家中看书遇到问题的时候就会想起CSDN，此时我也在想有许多的朋友遇到问题的心情，所以我也就是CSDN的常客，但难的问题是没有我的笔墨。
    不知道从什么时候起，回答完问题后总要带上一句：祝：身体健康，答案和分数同样重要!!的话语，其实答案和分数同样重要的话不是我内心的所想，我的学习环境特别不好，如果再没有一个让我得到自己学习成绩证明的地方，我想我不会再坚持下去，我想我会选择其它的方向。这就是我这句话的真正含义。
    我们学校是一个学院级的学校，自然学校里的同学计算机的水平没有重点高校那些同学高，但我们每个人都拥有着一颗向上的心，每当听说某个校友在学习程序语言，我就以学校计协的身份主动和他接触，主动的把CSDN介绍给他，让他也来融入到这个环境中去，共同学习，共同进步，那时我真的感觉到比进了200分还高兴，心里真的非常愉悦。
    家中父母也十分支持我的学习，看着百元一本本的DELPHI技术书籍，我也就努力的学习，以凭我个人的学习极限的去努力，我的脑袋真的不十分的好使，有些问题我得死记硬背才能掌握，而且要时常的温故，不然就会忘掉，所以我以前曾试途对自己的能力而感到灰心，但回想起那些CSDN，QQ上也在努力工作为了他人的朋友们，心里自然就会振作起来，也就挺到了现在。
    从我上CSDN那时起，我QQ中的好友就在以成倍的速度在增长，我对DELPHI的认识的水平也在不断的提高，这里面也少不了那些在线为我回答的好友们的功劳，在此也非常感谢小小，|天外流星|，赤兔，Ehomsoft,陈迪,*Eric*,摩托, 苗锡峰老师,!天之骄子!,俺村我最帅,莫名狐，我爱吃香菜，小风等大哥，朋友的全力相助，也希望他们工作顺利，身体健康吧!
    在此我也要说两句，星星不代表等级的高低，但代表了你帮助别人的多少!!!!!!!!有些人不是星星，但他们的技术非常的优秀，我想这样的高手，你还是不要来CSDN了，因为你只管取得，不管付出!!我也希望通过一些事情来使那些高手认识一下，但力单，也就罢了!
   
   在最后，我真心的祝福现在一直在默默帮助他人的朋友们，工作顺利，身体健康，万事如意!!在此我也要在最后把我的常用语替换一下：   ：)
   stringreplace(常用语，'祝：身体健康，答案和分数同样重要!!','祝：身体健康，提前完工!!',[rfReplaceAll]);
   
   从新开始
   BEGIN
   但没有
   ...;   ：)

Answer 1

还是CSDN里好人多，如果社会能有这个氛围

Answer 2

恭喜，现在管理上的事情多了，上CSDN上的时候反而少了……感谢楼主还记得我……

Answer 3

恭喜恭喜,偶学delphi也已两年了
也一直在csdn上混,水平也不见长
去过你的论坛
对了,ghyghost,
想问你在辽宁的哪个地方

Answer 4

TO xzgyb(老达摩
辽宁的盘锦兴隆台区

Answer 5

恭喜！
这些日子虽然总能上网，却不常来csdn了，现在看来以后还要多来！

Answer 6

楼上的请注意：您已经侵犯了BlueTrees的版权，你使用了非正式零售版的恭喜。请您立刻停止侵权活动，三日内去玫瑰内画大洲加恩律师事务报告你侵权的范围。:)

Answer 7

速度好慢。。
你不怕斑竹当你这个是灌水贴？呵呵，加一点Code....
StringGrid的显示问题，可以水品对齐，垂直对齐。
---------------------------------------------------------
procedure TForm1.DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState; StringGrid: TStringGrid);
var
  R: TRect;
  Index ,Index_Grid : Integer;
  TempR : TRect;
begin
  with TStringGrid(StringGrid) do
  begin
    with TStringGrid(StringGrid),TStringGrid(StringGrid).Canvas do
    begin
      R := Rect;
      InflateRect(R, -2, -2);
      //************************************************************************
      //TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);      For Index_Grid := 0 to StringGrid1.ColCount do
      begin
        if FormatRC(Index_Grid) then
        begin          if FFormat = 3 then
          begin
            For Index := Low(Result_R) to High(Result_R) do
            begin
              if ACol = Result_R[Index] then
              begin
                TempR := StringGrid1.CellRect(Result_R[Index],ARow);
                FillRect(TempR);//清除原有内容
                if ACol = Result_R[Index] then
                begin
                  DrawText(Handle, PChar(Cells[ACol, ARow]),
                  Length(Cells[ACol, ARow]), R, DT_RIGHT or DT_SINGLELINE or
                  FormatView_V )
                end;
              end;
            end;
            For Index := Low(Result_C) to High(Result_C) do
            begin
              if ACol = Result_C[Index] then
              begin
                TempR := StringGrid1.CellRect(ACol,ARow);
                FillRect(TempR);//清除原有内容
                if ACol = Result_C[Index] then
                begin
                  DrawText(Handle, PChar(Cells[ACol, ARow]),
                  Length(Cells[ACol, ARow]), R,DT_CENTER  or DT_SINGLELINE or
                  FormatView_V)
                end;
              end;
            end;
          end else
          if FFormat = 2 then
          begin
            For Index := Low(Result_R) to High(Result_R) do
            begin
              if ACol = Result_R[Index] then
              begin
                TempR := StringGrid1.CellRect(Result_R[Index],ARow);
                FillRect(TempR);//清除原有内容
                if ACol = Result_R[Index] then
                begin
                  DrawText(Handle, PChar(Cells[ACol, ARow]),
                  Length(Cells[ACol, ARow]), R, FFormat or DT_SINGLELINE or
                  FormatView_V);
                end;
              end;
            end;
          end else
          if FFormat = 1 then
          begin
            For Index := Low(Result_C) to High(Result_C) do
            begin
              if ACol = Result_C[Index] then
              begin
                TempR := StringGrid1.CellRect(Result_R[Index],ARow);
                FillRect(TempR);//清除原有内容
                if ACol = Result_C[Index] then
                begin
                  DrawText(Handle, PChar(Cells[ACol, ARow]),
                  Length(Cells[ACol, ARow]), R, 1 or DT_SINGLELINE or
                  FormatView_V)
                end;
              end;
            end;
          end ;
        end else
        begin
          TempR := StringGrid1.CellRect(ACol,ARow);
          FillRect(TempR);//清除原有内容
          DrawText(Handle, PChar(Cells[ACol, ARow]),
                  Length(Cells[ACol, ARow]), R,  DT_SINGLELINE or
                  FormatView_V );  
        end;
      end;
    end;
  end;
end;

Answer 8

              (o o)
   +----oOO----(_)----------+
   |                        |
   |     楼主，偶支持你     |
   |                        |
   +-----------------oOO----+
             |__|__|
              || ||

Answer 9

恭喜啊，CSDN又多了一个星极高手，继续努力，别忘记了；

Answer 10

祝贺了说实话，我还没有在csdn发过一个贴，不是我不想，而是我尽量自己解决问题
所以大家要尽量自己解决问题，不要一不懂就问，这是学不到东西的

Answer 11

呵呵，我以前很少能在论坛里看完一个人的帖子。
因为我觉得在这地方，除了灌水、就是灌水。谁能用真心来对待“网”呢。
所以我也猛灌……
灌的我都不知道说了些什么……
但今天看了楼主ghyghost一番言语……
俺明白了……
看看他的星星就知道他帮助了多少象我一样的菜鸟！
看来我的那些菜鸟问题之所以能解决都是碰到了如ghyghost一般的人物（俺们这里管水平高的人叫人物）。
曾经有一个csdn放在我的眼前我没有好好的利用！如果不是碰到了楼主~~~~~~我准备就在这里猛猛的灌水了。
现在我准备：Thank you!
               sss 
              (o o)
   +----oOO----(_)----------+
   |                        |
   |     楼主，偶支持你！   |
   |                        |
   +-----------------oOO----+
             |__|__|
              || ||
             ooO Ooo

Answer 12

恭喜恭喜啦，我才学dephi半年，还希望大家多多帮助！~接分~~~呵呵，也祝你身体健康（倒霉，现在我正感冒呢！啊切）

Answer 13

恭喜楼主了～～楼主在delphi也是很super guy 了

Answer 14

              (o o)
   +----oOO----(_)----------+
   |                        |
   |     楼主，偶支持你     |
   |                        |
   +-----------------oOO----+
             |__|__|
              || ||