各位大大: 你们好!! 我有一个文本文件,我怎样把它转成资料表,谢谢!! 文本文件 A28801 000 4 3-CB B40917T003 卫生用品 SH88015 A28802 000 4 3-CB B40917N034 上海宝山 SH43005 A28803 000 4 3-CB B40917P034 包装用品 Manual B40917T003 卫生用品 SH88015 ABU DAN 003 4 3-CB B917N041-0 Controller Order Controller A29001 000 R M7-CB B40917H034 包装用品 KS13100 A29101 000 3 M2-CB B40917Z006 好孩子用品 KS16001 A29201 000 6M6S6-CB B40917M008 电动工业 Manual 转换成

hi,fuudy: 你可以用一個TStringList來讀取文字檔的內容,再用另一個TStrinList來分析每一行的資料,如下

var
  ssFile,ssData:TStringList;
  i,j:Integer;
begin
  ssFile:=TStringList.Create;
  ssData:=TStringList.Create;
  try
    ssData.Delimiter:=' ';
    ssFile.LoadFromFile('aaa.txt');
    for i:=0 to ssFile.Count-1 do
    begin
      ssData.DelimitedText:=ssFile.Strings[i];
      DataSet.Append;
      for j:=0 to ssData.Count-1 do
        DataSet.Fields[j].AsString:=ssData.Strings[j];
      DataSet.Post;
    end;
  finally
    ssFile.Free;
    ssData.Free;
  end;
end;