dear 各位高手： 小弟有一轉檔程式，是將文字檔資料先由memo顯示出來後，在依欄位將資料放入stringGrid中，但我是寫固定文字長度，所以遇到別種切割文字時就會要動到程式碼修改，不知是否有方法可以使用，若有，那資料表所開的欄位屬性長度是否也要跟著變成機動調整，那要如何使用!! 程式碼如下： Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) 'test.txt'); Edit1.text:=inttostr(Memo1.lines.count) '筆資料'; TempStringGrid.RowCount:=Memo1.lines.count 1; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin TempStringGrid.cells[0,0]:='函 數'; TempStringGrid.colwidths[0]:=90; TempStringGrid.cells[1,0]:='類型'; TempStringGrid.colwidths[1]:=80; TempStringGrid.cells[2,0]:='註 解'; TempStringGrid.colwidths[2]:=300; end; procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin for i:=0 to memo1.lines.count do begin TempStringGrid.cells[0,i 1]:=Copy(memo1.lines[i],1,5); TempStringGrid.cells[1,i 1]:=Copy(memo1.lines[i],6,5); TempStringGrid.cells[2,i 1]:=Copy(memo1.lines[i],11,11); end; end; procedure TForm1.Button4Click(Sender: TObject); var j:integer; begin for j:=0 to memo1.lines.count-1 do begin ADOQuery1.close; ADOQuery1.SQL.TEXT:= 'INSERT INTO big.big_test (Data,type,notemp) ' 'VALUES ( ' '''' TempStringGrid.cells[0,j 1] ''', ' '''' TempStringGrid.cells[1,j 1] ''', ' '''' TempStringGrid.cells[2,j 1] ''' ' ' )'; ADOQuery1.ExecSQL; end; end; end.

轉檔不外乎固定格式或者固定幾個切割文字字元(空白、Tab、逗號、分號、或者特別奇怪字元ex:[d#q@$])。 以觀念上來說，就是看使用者(客戶)會用哪幾個然後再寫。 Table沒有隨機變動的，如果說你寫資料庫工具類那當然是可以變動。 較好的範例請參照MS-SQL匯入資料時的精靈介面。

dear StrongLemon:   謝謝指導，我有另一個問題發生，我的文字檔要傳進table時，因為我的欄位是用SQL開的，所以我把要傳進去的某些欄位屬性設成varchar，有些設成decimal的屬性結果發生錯誤入下圖： 而我開的資料表如下： 請幫忙解答..謝謝

我的建議是在轉進去之前先判斷欄位是什麼型態，然後資料格式是否符合。 如果不符合，是顯示錯誤訊息還是跳過這欄位（由你決定）， 另外也還要判斷匯入資料欄位數是否相等於Table欄位數，資料欄位數過多時你 要選擇顯示錯誤訊息還是忽略。    

if ADOQuery1.Fields.Fields[0].DataType=ftInteger then
  begin
    if TryStrToInt(tmpstr_data,tmpnum_data)=True then
    ADOQuery1.Fields.Fields[0].AsInteger:=tmpnum_data
    else
    showError...
  end;

dear StrongLemon: 我是想知道有沒有辦法，可以把資料不管是數字或是文字形態都放進去，但是因為我是從stringGrid裡面抓資料放入table中所以抓出來的都是文字型態，所以在這個地放不知如何讓它變成數字型態，因為我是把SQL語法存入ADOQuery中所以我在享有沒有辦法可以直接在與法理面下指令讓她轉型，或是有其他更好的方式!!請各位大大指導!!

如果你要不管任何型態都可以塞進去，那Table欄位應該都設成varchar。 總不可能設成decimal時還想要塞進非數字的文字吧.. 你可以先判斷塞入資料是何種型態。 用下面類似這行判斷，從StringGrid抓出來的當然都是文字型態，必須自己Code去判斷然後再轉型或者SQL部分必須特別處理。 文字要加"" 數字不用加""...還有其他型態....

if TryStrToInt(tmpstr_data,tmpnum_data)=True then
  tmpdt_DataType=ftInteger
else ....

或者你根本就用Variant去接，由Variant去處理。 FieldByName('xxxx').AsVariant:=tmpvar_Data;//tmpvar_Data->Variant

建議您可以這樣處理：     

var
  i,j:Integer;
  S: String;
begin
  for i := 0 to memo1.lines.count-1 do
  begin
    with ADOQuery1 do begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT * FORM big.big_test WHERE 0 > 1');
         Open;
         S := '';
         // 如果可以切割應該直接就再此處理不用再放到 StringGrid
         for j := 0 to Field.Count-1 do begin
             case Fields[j].DataType of
                ftSmallint,ftInteger,ftWord,ftFloat: S := S   Trim(TempStringGrid.cells[j,i 1]);
             else
                S := S   QuotedStr(Trim(TempStringGrid.cells[j,i 1]));
             end;
             if j < Fields.Count-1 then S := S ',';
         end;
         SQL.Clear;
         SQL.Add('INSERT INTO big.big_test (Data,type,notemp) VALUES (' S ')');
         try
           ExecSQL;
         except
         end;
    end;
  end;