DELPHI 通用的数据记录复制过程

／／表名，关键字段名，单条内容的SQL语句，产生新记录的值
function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere,
  newfileldstring: string): integer;
  var sql,sqlstring,sqlvalue,newsqlvalue:string;
   i:integer;

 begin
 sql := 'INSERT INTO [%s] (%s) VALUES(%s)';

  self.fykExecute.Close ;
  self.fykExecute.SQL.Text := swhere;
  self.fykExecute.Open ;
  //取得字段资料    ,注意这里进行字段类型的判断，及NULL的处理。针对SQLSERVER
  sqlstring:=StringReplace(Trim(fykExecute.FieldList.Text),   ##,   ',',   [rfReplaceAll]);
  for i :=  to fykExecute.FieldCount - do
  begin
      if  fykExecute.Fields[i].FieldName =  fileldname then begin
           sqlvalue :=sqlvalue + newfileldstring +',';
      end else begin
        if  fykExecute.Fields[i].DataType in [ftString , ftDate, ftTime, ftDateTime, ftMemo, ftFmtMemo, ftWideString] then begin
         if  fykExecute.Fields[i].AsString <>'' then begin
             sqlvalue :=sqlvalue +''''+ fykExecute.Fields[i].AsString +''',';
          end else begin
             sqlvalue :=sqlvalue +'NULL'+',';
          end;
        end else begin

          if  fykExecute.Fields[i].AsString <>'' then begin
             sqlvalue :=sqlvalue + fykExecute.Fields[i].AsString +',';
          end else begin
             sqlvalue :=sqlvalue +'NULL'+',';
          end;

        end;

      end;

  end;

   newsqlvalue:= copy(sqlvalue,,length(sqlvalue)-)  ;
//  showessage(sqlvalue);

  self.fykExecute.Close ;
  self.fykExecute.SQL.Text := format(sql,[tablename,sqlstring,newsqlvalue]);
  fykExecute.SQL.SaveToFile('C:\1.TXT');
  Resuntl :=  self.fykExecute.ExecSQL ;

end;