- 1 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 23:31:08 ]
- Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。
- 64 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 03:05:54 ]
- >>62
すばらしい！
つぎに、汎用的に使えるように関数にしてみてください。
type
TPosArray = array of integer;
function SearchAndPos(const SubStr, Str: string; PosArray: TPosArray): integer;
で戻り値が出現回数であるような。>>63 さんのおっしゃるとおり、AnsiStrPos をつかって
実装してみてください。
- 65 名前：デフォルトの名無しさん mailto:sage [2005/12/07(水) 03:10:21 ]
- すみません、関数は
function SearchAndPos(const SubStr, Str: string; var PosArray: TPosArray): integer;
の形です。var をわすれました。
|
 |
