Pos関数について (ID:47026)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

すみません、宜しくお願いいたします。

delphi2005で使用してたソースなのですが、delphixe5ではコンパイルエラーになります。何がいけないのでしょう？
os、windows7 64bit

以下ソース

概要はＵＤＬファイルからDBのパスを取得のようですが、
私、理解できてないです。

function M_GetDBPathFromUDL(const strUDL : string): String;
var
  strTarget : string;
  wstrSet   : WideString;
  f         : TFileStream;
  intStart  : Integer;
  intEnd    : Integer;
begin
  Result := '';

if not FileExists(strUDL) then exit;

f := TFileStream.Create(strUDL, fmOpenRead);
  try
    SetLength(wstrSet, f.Size);
    f.Read(wstrSet[1], f.Size);
  finally
    f.Free;
  end;

intStart  := Pos('Source=', wstrSet) + 7;    ←エラー箇所
  intEnd    := Pos(';Persist', wstrSet);       ←エラー箇所
  strTarget := Copy(wstrSet, intStart, intEnd - intStart);
  Result    := strTarget;
end;

以下エラーメッセージ

[dcc32 エラー] aaFunc.pas(748): E2251 'Pos' へのオーバーロード呼び出しはあいまいです
  System.pas(29784): 関連メソッド: function Pos(const string; const string; Integer): Integer;
  System.pas(29944): 関連メソッド: function Pos(const WideString; const WideString; Integer): Integer;

宜しくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る