掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Pos関数について (ID：47028)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あー、よく見たらコンパイルエラーは出ていなくても、ファイルの読み込みがうまくないですね。 function M_GetDBPathFromUDL(const strUDL : string): String; var strTarget : string; strSet : string; f : TFileStream; intStart : Integer; intEnd : Integer; begin Result := ''; if not FileExists(strUDL) then exit; f := TFileStream.Create(strUDL, fmOpenRead); try SetLength(strSet, f.Size div SizeOf(Char)); f.Read(PChar(strSet), f.Size); finally f.Free; end; intStart := Pos('Source=', strSet) + 7; intEnd := Pos(';Persist', strSet); strTarget := Copy(strSet, intStart, intEnd - intStart); Result := strTarget; end; ファイルはUTF-16(BOMなし)で記録されているんですよね？ ANSI版(2007およびそれ以前)からUnicode版(2009およびそれ以降)にポーティングするときは 文字列の扱いを(基本的に)全て見直す必要があります。Embarcaderoの公式サイトにも DEKOさんのところにもいろいろ資料がありますので、一通り目を通されたほうがよいかと。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.