引言: 我使用記事本將日文存成 unicode format ,若用BCB 呼叫讀入 EDIT 會出現?號,請問要如何才能讓EDIT秀日文? 謝謝!!

chialun你好： >!

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text = "";
  Edit1->Font->Charset = SHIFTJIS_CHARSET;
  TFileStream *fs = new TFileStream("c:\\unicode.txt", fmOpenRead);      wchar_t *buffer = new wchar_t[1];
  char *c = new char[1];      fs->Read(buffer, 2);
  if (*buffer == 0xFEFF) {
    while (fs->Position < fs->Size) {
      fs->Read(buffer, 2);
      WideCharToMultiByte(932, 0, buffer, 1, c ,2, NULL, NULL);
      Edit1->Text = Edit1->Text   c;
    }
  }
  fs->Free();
}