// 將tDataSet目前資料錄依FldSave參數描述儲存到TStrings
// FldSave := ' Fld1;Fld2;Fld3...' ; // 要儲存的欄位
//FldSave :=  'Fld1;Fld2;Fld3...' ; // 同上功能
// FldSave := '-Fld1;Fld2;Fld3...' ; // 不要儲存的欄位
Procedure RecSave(DataSet:TDataSet;Var Strings:TStringList;FldSave:String);
Var
  i,nLen:Integer;
  FldName:String;
  nMethod : Integer ;
Begin
  If DataSet.Eof Then Exit;
  FldSave := UpperCase(FldSave);
  nMethod := 0 ;
  If Length(FldSave) > 0 Then Begin
    If Copy(FldSave,1,1)='-' Then nMethod := -1 Else nMethod := 1 ;
  End;
  Strings.Clear ;
  With DataSet Do Begin
    nLen := FieldCount ;
    For i:= 0 To nLen-1 Do Begin
      FldName := UpperCase(Fields[i].FieldName);
      Case nMethod of
       -1: If Pos(FldName,FldSave) >0 Then Continue ;
        1: If Pos(FldName,FldSave) =0 Then Continue ;
      End;
      If Strings.IndexOf(FldName) = -1 Then Begin
        Strings.Add(FldName '=' FieldByName(FldName).AsString );
      End;
    End;
  End;
End;
// 將TStrings儲存的記錄值回存到記錄
Procedure RecRestore(DataSet:TDataSet;Strings:TStringList);
Var
  i,nLen:Integer;
  FldName:String;
Begin
  If not (DataSet.State IN [dsEdit,dsInsert]) Then Exit;
  With DataSet Do Begin
    nLen := Strings.Count ;
    For i:= 0 To nLen-1 Do Begin
      FldName := Strings.Names[i];
      If FindField(FldName)<> nil Then Begin
        FieldByName(FldName).AsString := Strings.Values[FldName];
      End;
    End;
  End;
End;    // 使用方式如下
procedure TForm1.BitBtn1Click(Sender:TObject);
Var
  Strings : TStrings ;
begin
  Strings := TStringList.Create ;
  DataSet.First;
  RecSave(DataSet,Strings,'');  // '' 代表全部的欄位皆要儲存
  DataSet.Insert;
  // 將TStrings儲存的記錄值回存到記錄
  RecRestore(DataSet,Strings);
  
  //或是 如下用法
  DataSet.FieldByName('AAA').AsString := Strings.Values['AAA'] ;//AAA為欄位名稱
  DataSet.Post;
  Strings.Free;
End;    參考看看!!!!!!!!!!!!!!!!!!