Delphi2010でフリガナを取得する方法 (ID:38139)

名前

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

本文 こんにちは。 いつも参考させていただいています。 過去ログを参照し、 入力した文字の半角カナを取得するプログラムをテストしました。 delphi7では正常に動いているのですが、 delphi2010だと、入力した文字の後ろに、 余計な文字が入ってしまい、 正常に取得することができません。 どうかご教授よろしくお願いします。 uses imm; function GetFurigana (Control:TwinControl):String; var IMC:HIMC; Len:Longint; Str:String; begin Imc:=ImmGetContext(Control.Handle); Len:=ImmGetCompositionString(Imc,GCS_RESULTREADSTR,nil,0); SetLength(Str,Len+1); ImmGetCompositionString(IMC,GCS_RESULTREADSTR,PChar(Str),Len+1); SetLength(Str,Len); Result:=Str; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text:=GetFurigana(Edit1); end;