05/12/09 09:58:14
次の課題。
１）Delphi には Pos や AnsiPos にように文字列の先頭から、最初の位置までを
検索する関数がありますが、途中から検索する関数がありません。それを
function AnsiPosEx(const Substr, S: string; initPos: integer): Integer;
の形で AnsiStrPos をつかって、つくってください。そして、それをつかって >>66 を
書き直してみてください。
２）>>66 では見つかるたびに SetLength() を使って配列を一つずつ増やしています。
これは非効率的なので、たとえば１０個づつ増やすようにしてみてください。