Delphi ADO txt内文本数据的导入

Question

Delphi 中  
ADO  txt 内的文本格式如下：
01-00004592-00015-20120411141731--0000050000-0000162000-00013-150--A5AF0F7A3C-CRC..OK
001-00004593-00025-20120411141733--0000050000-0000162000-00013-150--4B51E194D2-CRC..OK
001-00004588-00015-20120411141735--0000050000-0000172000-00013-150--979C3C790F-CRC..OK
001-00004591-00015-20120411141737--0000050000-0000162000-00013-150--4A41E194D2-CRC..OK
001-00004590-00016-20120411141739--0000050000-0000174000-00013-150--1F04B4A187-CRC..OK
001-00004584-00018-20120411155848--0000040000-0000244000-00004-150--B5AE7F9B2D-CRC..OK
001-00004590-00017-20120411155850--0000200000-0000374000-00014-150--3D26F7C3A5-CRC..OK
我现在要把这些数据通过ADO，主要控件有ADOConnection  导入QUery中，怎么导入?不要随便的复制粘贴过来，我要代码实现，几句话的不给分

Answer 1

ACCESS 插入文本文件      ph:= GetAbsolutePath(Path,'Customer.txt');
      ContactList.SaveToFile(ph);
      Close;
      SQL.Clear;
      SQL.Add('Insert INTO ContactData Select * FROM [Text;DATABASE='+Path+'].Customer.txt');
      ExecSQL;
      DeleteFile(ph);//删除Customertxt文件这个是插入方法，至于你的数据要怎弄，你得先从ACCESS里导出来看看格式是什么，按格式来。