CSDN人气统计器

Question

procedure TFormTopic.ButtonCalcClick(Sender: TObject);
var
  vMark, vRevert, vTimeSpan: Real;
  vCount: Integer;
  I: Integer;
  vStringList: TStringList;
begin
  vCount := MemoData.Lines.Count;
  if vCount <= 0 then Exit;
  vStringList := TStringList.Create;
  try
    ///////Begin 处理全拷贝的情况
    vStringList.Assign(MemoData.Lines);
    for I := vCount - 1 downto 0 do
       if (Pos('版主：', Trim(vStringList[I])) = 1) and (I > 0) then begin
         EditTitle.Text := Trim(vStringList[I - 1]);
         vStringList.Delete(I);
       end else if (Pos( '？', Trim(vStringList[I])) = 1) or
         (Pos( '√', Trim(vStringList[I])) = 1) then
       else vStringList.Delete(I);
    ///////End 处理全拷贝的情况
    Calc(vStringList, vMark, vRevert, vTimeSpan);
    vCount := vStringList.Count;
    MemoReport.Lines.Add(EditTitle.Text);
    MemoReport.Lines.Add('[抽样数据]');
    MemoReport.Lines.Add(vStringList[0]);
    MemoReport.Lines.Add(Format('... 共%d贴 ...', [vCount]));
    MemoReport.Lines.Add(vStringList[vStringList.Count - 1]);
    MemoReport.Lines.Add('');
    MemoReport.Lines.Add('[统计结果]');
    MemoReport.Lines.Add(Format(
  '合计分数: %7.2f   (分); 合计回复: %7.2f   (次); 合计时差: %7.2f   (分钟)',
      [vMark, vRevert, vTimeSpan]));
    MemoReport.Lines.Add(Format(
  '平均分数: %7.2f(分/贴); 平均回复: %7.2f(次/贴); 平均时差: %7.2f(分钟/贴)',
      [vMark / vCount, vRevert / vCount, vTimeSpan / vCount]));
    MemoReport.Lines.Add(
'//---------------------------------------------------------------');
  finally
    vStringList.Free;
  end;
end;
Visual C++ (已解决问题)
[抽样数据]
√ 在线等待，高分求助：应用程序初始化（0xc0000142)失败 （zhlc9 ）  100 18 07-08 08: 39 管理  
... 共30贴 ...
√ win98下用直接端口操作，怎么控制不了打印机了？ -----在此先谢谢大侠了----- （MSVCer ）  100 9 07-07 13: 40 管理  [统计结果]
合计分数: 2124.00   (分); 合计回复:  239.00   (次); 合计时差: 1139.00   (分钟)
平均分数:   70.80(分/贴); 平均回复:    7.97(次/贴); 平均时差:   37.97(分钟/贴)
//---------------------------------------------------------------
Delphi (已解决问题)
[抽样数据]
  √ 请大家帮忙，来者有分！！！！！！ （hotxu ）  200 44 07-08 08: 44 管理  
... 共30贴 ...
 √ 我正在作的窗体突然就不能打开了（一分钟之前我还在用呢）， （xjl ）  80 30 07-07 16: 46 管理  [统计结果]
合计分数: 2373.00   (分); 合计回复:  357.00   (次); 合计时差:  958.00   (分钟)
平均分数:   79.10(分/贴); 平均回复:   11.90(次/贴); 平均时差:   31.93(分钟/贴)
//---------------------------------------------------------------Visual C++ (未结技术区)
[抽样数据]
？ 郁闷！只有你们才能理解！ （mscsdn ）  10 6 07-08 09: 01 管理  
... 共30贴 ...
？ 高分~，谁知道access中数据输入时用的表格是什么控件，我怎么才能调用这个控件？ （luckbird ）  100 1 07-08 08: 48 管理  [统计结果]
合计分数: 2223.00   (分); 合计回复:  208.00   (次); 合计时差:   13.00   (分钟)
平均分数:   74.10(分/贴); 平均回复:    6.93(次/贴); 平均时差:    0.43(分钟/贴)
//---------------------------------------------------------------
Delphi (未结技术区)
[抽样数据]
  ？ Label问题 （toplor ）  20 14 07-08 09: 02 管理  
... 共30贴 ...
 ？ rain xp （nb20022 ）  50 5 07-08 08: 44 管理  [统计结果]
合计分数: 2539.00   (分); 合计回复:  376.00   (次); 合计时差:   18.00   (分钟)
平均分数:   84.63(分/贴); 平均回复:   12.53(次/贴); 平均时差:    0.60(分钟/贴)
//---------------------------------------------------------------

Answer 1

Delphi (未结技术区)
[抽样数据]
  ？ 能给个stringrid的例子吗？一步步的那种，我有程序可不会把控件和程序对应 （littlekf ）  20 1 07-08 13: 45 管理  
... 共30贴 ...
 ？ 我的程序在运行的时候会调用一个批处理文件,我怎么监视这个程序退出. （zsy_good ）  50 1 07-08 13: 33 管理  [统计结果]
合计分数: 2250.00   (分); 合计回复:  446.00   (次); 合计时差:   12.00   (分钟)
平均分数:   75.00(分/贴); 平均回复:   14.87(次/贴); 平均时差:    0.40(分钟/贴)
//---------------------------------------------------------------
Visual C++ (未结技术区)
[抽样数据]
？ 怎么样快速（效率要求很高）把一个文件的内容放到一个字符串中？？？？ （Sale_Boss ）  50 0 07-08 13: 48 管理  
... 共30贴 ...
？ 各位专家好！关于软键盘的窗口实现问题！ （szptfjq ）  100 1 07-08 13: 35 管理  [统计结果]
合计分数: 2100.00   (分); 合计回复:   53.00   (次); 合计时差:   13.00   (分钟)
平均分数:   70.00(分/贴); 平均回复:    1.77(次/贴); 平均时差:    0.43(分钟/贴)
//---------------------------------------------------------------
Visual Basic (未结技术区)
[抽样数据]
？ 一个ado的疑问，请大家解释 （miu ）  60 2 07-08 13: 49 管理  
... 共30贴 ...
？ 哪能搞到中文的vb帮助？ （usb ）  10 5 07-08 13: 27 管理  [统计结果]
合计分数: 1850.00   (分); 合计回复:  285.00   (次); 合计时差:   22.00   (分钟)
平均分数:   61.67(分/贴); 平均回复:    9.50(次/贴); 平均时差:    0.73(分钟/贴)
//---------------------------------------------------------------
C++ Builder (未结技术区)
[抽样数据]
？ 请问socket通信能单独作为一个线程吗？ （francohe ）  100 2 07-08 13: 49 管理  
... 共30贴 ...
？ 我写了一个程序，要求是用户点击我的这个程序时，程序就能自动运行到电脑的启动中，以后每次电脑启动的时候就自动运行这个程序了，那应该 （citywolf ）  60 5 07-08 12: 56 管理  [统计结果]
合计分数: 1910.00   (分); 合计回复:  172.00   (次); 合计时差:   53.00   (分钟)
平均分数:   63.67(分/贴); 平均回复:    5.73(次/贴); 平均时差:    1.77(分钟/贴)
//---------------------------------------------------------------
嘻嘻嘻 看来Delphi的回复次数比较高 嘻嘻嘻嘻