「拡張ツールバー for Delphi IDE」はしおり・検索・インデント・コメントなどの機能を持つDelphiのIDE用のツールバーです。
元のプログラムは、Delphi2005用に作成されているため、Delphi XEではコンパイルエラーになりました。
次のように、少し修正を加えるだけで動作するようになりました。
- GlobalUnit.pasのWideStringToUtf8関数とUtf8ToWideString関数を削除する。
//コメントアウト //function WideStringToUtf8(const S: WideString): UTF8String; //function Utf8ToWideString(const S: UTF8String): WideString; (* コメントアウト function WideStringToUtf8(const S: WideString): UTF8String; ~ *) (* コメントアウト function Utf8ToWideString(const S: UTF8String): WideString; ~ end; *)
- WideStringToUtf8関数とUtf8ToWideString関数の使用をやめる。
GlobalUnit.pasのTMainModule.OnFindFormClick関数 //FSearchText := WideStringToUtf8(FindDlg.FindText); FSearchText := FindDlg.FindText; GlobalUnit.pasのGetCursorWord関数 //Result := Utf8ToWideString(EditBlock.Text); Result := EditBlock.Text;
※もしかしたら問題があるかも。問題があったら教えてください。