Fórum Como criar SQL Inserts a partir de uma Query no Delphi #294789

function RetornaNomeTabela(Sql: string):string;
var
  i: integer;
  NomeTab: string;
  PosFrom: integer;
  Str: string[1];
begin
  Nometab:= ´´;
  PosFrom:= Pos(´FROM´,UpperCase(Sql));
  Str:= ´ ´;
  for i:=PosFrom+4 to length(Sql) do
  begin
    if (Sql[i] <> ´ ´) then
    begin
      Nometab:= Nometab+ Sql[i];
      Str:= ´.´;
    end
    else if Str= ´.´ then
      break;
  end;
  RetornaNomeTabela:= NomeTab;
end;

procedure TfrmGeraSql.sbSqlClick(Sender: TObject);
var
  i: integer;
  CaminhoArq: string;
  Arq_Saida: TStringList;
  VetCampos: array [1..50] of string;
  ContCampos: integer;
  Valores: string;

begin
  Arq_Saida:= TStringList.Create;

  SaveDialog1.InitialDir:= ExtractFilePath(Application.ExeName);
  SaveDialog1.Execute;
  CaminhoArq:= SaveDialog1.FileName;


  pbSql.Min:= 0;
  pbSql.Max:= Query1.RecordCount;
  pbSql.Position:= 0;

  ContCampos:= DBGrid1.Columns.Count;
  for i:= 0 to DBGrid1.Columns.Count-1 do
  begin
    VetCampos[i+1]:= DBGrid1.Columns.Items[i].FieldName;
  end;

  Query1.First;


  while not Query1.Eof do
  begin
    pbSql.Position:= pbSql.Position+1;

    Valores:= ´(´;
    for i:= 1 to ContCampos do
    begin
      if (Query1.Fields[i-1].DataType = ftString) then
        Valores:= Valores +  ´´´´+  Query1.Fields[i-1].AsString + ´´´´
      else
        Valores:= Valores +  Query1.Fields[i-1].AsString;
      if i+1 <= ContCampos then
        Valores:= Valores + ´,´;
    end;
    Valores:= Valores + ´)´;

    Arq_Saida.Add(´Insert into ´+RetornaNomeTabela(SqlExec)+ ´ Values ´+ Valores);


    query1.Next;
  end;
  Arq_Saida.SaveToFile(CaminhoArq);

  Arq_Saida.Free;
end;