delphi - DELPHI XE7 [dcc32 エラー] E2250 これらの引数で呼び出すことができる 'Pos' のオーバーロードされたバージョンはありません

Question

win7 32bit コード上の DELPHI XE7:

procedure TForm1.IdMappedPortTCP1Execute(AContext: TIdContext);
begin
if (pos('CONNECT',AContext)<>0) or (pos('GET',AContext)<>0) or (pos('POST',AContext)<>0) or   (pos('HEAD',AContext)<>0)
then
(....)
sleep(100);
end;

エラー：

[dcc32 Error] Unit1.pas(49): E2250 There is no overloaded version of 'Pos' that can be called with these arguments

そのコードを修正する方法を教えてください

前もって感謝します

Answer 1

への引数Posは 2 つの文字列です。関数は、別の文字列 (2 番目のパラメーター) 内で部分文字列 (最初のパラメーター) の最初の出現を検索します。この関数については、http: //docwiki.embarcadero.com/Libraries/en/System.Posに文書化されています。

AContextタイプであり、文字列ではないものを渡してTIdContextいます。コードを修正するには、検索対象のテキストを含む文字列を渡す必要があります。