テキストファイルを読む（１行目がヘッダ） void __fastcall TForm1::Button21Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edi…