テキストファイルを読む（１行目がヘッダ） procedure TForm1.Button21Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア ListBox1.Ite…