TextFileに配列で２バイト文字を取り込むには？

解決

kumatarou 2005-03-07 08:41:23 No: 13587 IP: 192.*.*.*

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;
以上宜しくお願い致します。

編集削除

迷 2005-03-07 09:36:07 No: 13588 IP: 192.*.*.*

サンプルソースを提示するなら、
まともに動くものを書き込みましょうね。(キー入力ではなくコピペで)
間違いだらけでコンパイルも出来ないソースでは…

編集削除

Kumatarou 2005-03-07 09:54:53 No: 13589 IP: 192.*.*.*

謎様
ご指摘ありがとうございました。
以後発言する際はコピーペーストで行います。

編集削除