05/12/15 10:26:25
>>76
すばらしい！ ９４点
減点は
CountAlpha(var str: AnsiString): → CountAlpha(const str: AnsiString):
const にして、関数内で変更しない（コピーされない）ことを保証し、
IntToStr(CountAlpha(Memo1.Text)) などと、変数を確保しなくても使えるように
することは重要です。var だと str := Memo1.Text; IntToStr(CountAlpha(str))
などとしなければ使えませんね。
減点ではないけど
if (str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then
の部分は
if (str[i] in ['A'..'Z','a'..'z']) then
とすることもできます。
文字列のインデックスは１から始まります。ですから
i:=0; ではなく、 i:=1;
で初期化してください。次の課題は少し事前に検証してから出します。