大文字小文字を区別しないで検索

あるく 2006-02-20 13:48:27 No: 20109

if (Pos('test',Memo1.Lines.Strings[Memo1.Lines.Count - 1]) <> 0) then
sndPlaySound(Pchar('test.wav'),SND_ASYNC);

このようにMemo1の最後の行からtestを探して、
あったらtest.wavを再生するというものを作っているのですが、
大文字小文字の区別なしに検索するにはどうしたら良いでしょうか。
よろしくお願いします。

あ 2006-02-20 16:16:04 No: 20110

if (Pos(LowerCase('test'), LowerCase(Memo1.Lines[Memo1.Lines.Count - 1])) <> 0) then
sndPlaySound(Pchar('test.wav'),SND_ASYNC);

LowerCaseは大文字を小文字に変換する関数。全角文字がある場合はAnsiPos、AnsiLowerCaseを使うこと。
それからTMemo.Linesが既にTStringsのStringsを継承しているのでLines.Stringsとする必要はありません。←これは好きなようにして下さい笑