「拡張ツールバー for Delphi IDE」をDelphi XEで使用する

拡張ツールバー for Delphi IDE」はしおり・検索・インデント・コメントなどの機能を持つDelphiのIDE用のツールバーです。

元のプログラムは、Delphi2005用に作成されているため、Delphi XEではコンパイルエラーになりました。
次のように、少し修正を加えるだけで動作するようになりました。

  1. 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;
    *)
    
  2. WideStringToUtf8関数とUtf8ToWideString関数の使用をやめる。
    GlobalUnit.pasのTMainModule.OnFindFormClick関数
    //FSearchText := WideStringToUtf8(FindDlg.FindText);
    FSearchText := FindDlg.FindText;
    
    GlobalUnit.pasのGetCursorWord関数
    //Result := Utf8ToWideString(EditBlock.Text);
    Result := EditBlock.Text;
    

※もしかしたら問題があるかも。問題があったら教えてください。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください