Lazarus宝藏，等你来发现（回复论坛网友的成绩统计问题）

xychen

原题目见http://lazarus.net.cn/read.php?tid=422
用Lazarus做如下编码可以实现统计，同样的代码在Delphi中无法编译，StringsReplace和Sum函数无法识别，在这个题目中，因为用了两个Lazarus 独有的函数，可以省去不少代码，虽然Delphi加上第三方控件会非常强大，但至少从这两个函数在这段代码的应用看，也可以说明Lazarus的基础是很不错的，他绝非编程玩具，完全可以实现高效开发的目的，相信Lazarus中还有很多宝藏，大家一起去发现吧！！！

1. program Score;
3. uses
4.   Classes, SysUtils, StrUtils, Math;
6. var
7.   i, j, k: integer;
8.   SumScore: double;
9.   InData, TempData, OutData: TStringList;
10.   AScore: array[0..14] of double;
12. begin
13.   InData   := TStringList.Create;
14.   TempData := TStringList.Create;
15.   OutData  := TStringList.Create;
16.   InData.LoadFromFile('Score_In.txt');
17.   OutData.Text := InData.Text;
18.   //替换A、B、C、D为对应的分数
19.   InData.Text  := StringsReplace(InData.Text, ['A', 'B', 'C', 'D'], ['10', '5', '0', '0'], [rfReplaceAll]);
20.   for i := 1 to InData.Count - 1 do
21.   begin
22.     //将一行数据分解到列表中，从第三个数据开始为考试的成绩数据
23.     k := ExtractStrings([#9], [], PChar(InData.Strings[i]), TempData);
24.     //将数据存入数组
25.     for j := 2 to k - 1 do
26.       AScore[j - 2] := StrToFloat(TempData.strings[j]);
27.     //利用数组中的成绩数据计算总成绩，先算出选修课的总成绩，再算出主修和辅修课的成绩累加
28.     SumScore := IfThen(Sum(AScore, k - 2) - Sum(AScore, 10) > 20, 20, Sum(AScore, k - 2) - Sum(AScore, 10));
29.     SumScore := (Sum(AScore, 6) + Sum(AScore, 10)) * 0.5 + SumScore;
30.     //将总成绩写回到列表
31.     OutData.Strings[i] := FormatFloat('#0.0', SumScore) + '=' + OutData.Strings[i];
32.     TempData.Clear;
33.   end;
34.   //对列表进行排序
35.   OutData.Sort;
36.   k := 1;
37.   //计算名次并将升序排序改为降序排序
38.   TempData.Add(OutData.strings[OutData.Count - 1]);
39.   TempData.Add('1' + #9 + OutData.strings[OutData.Count - 2]);
40.   for i := OutData.Count - 3 downto 0 do
41.   begin
42.     if OutData.Names[i]<>OutData.Names[i+1] then k := k + 1;
43.     TempData.Add(IntToStr(k) + #9 + OutData.Strings[i]);
44.   end;
45.   //去除列表中多余的字符
46.   TempData.Text := StringsReplace(TempData.Text, [#61#9], [''], [rfReplaceAll]);
47.   TempData.SaveToFile('Score_Out.txt');
48.   InData.Free;
49.   TempData.Free;
50.   OutData.Free;
51. end.

复制代码

猫工

这么好的文章，要好好看一下

daimon

留个脚印方便查找，猫老大，怎么论坛不能有收藏哦。
有收藏放便多了，可以随时查找到。

lz_whj

路过，收藏

catch-22

顶啊~
不错...............

s_guang

作个学习记号！

sdphome

相信Lazarus中还有很多宝藏

haojielyb

StringsReplace 函数很牛逼啊