TextFileに配列で２バイト文字を取り込むには？ (ID:13587)

名前

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

本文 Kumatarouと申します。 現在、Stringの文字列を配列に代入してTextにはき出したいのですが ２バイト文字を代入した際に文字が化けてしまいます。 ファイルに書き込み方法が間違えているような気がするのですが 分かりません。 どなたかご存じの方ご教授願えないでしょうか？ 以下にプログラム文を記述します。 var InputFile :TextFile; //書き込み用テキスト TestStr : String; //テスト用文字列 KoteiMoji : Array of char; begin TestStr := 'テスト文字列'; AssignFile(InputFile, ファイルの場所); Reset(InputFile); SetLength(KoteMoji,20); FillChar(KoteiMoji,#20,20);//スペースで埋める StrPCopy(PChar(KoteiMoji), TestStr); InputFile.Write(KoteiMoji,Length(KoteiMoji)); CloseFile(InputFile); //ファイルを閉じる end; 以上宜しくお願い致します。