// Copie d'une table T1 dans une autre table T2 de structure identique ou différente
// T1 et T2 sont stockées dans des bases de données SQlite distinctes
// T2 est vidée avant la copie
// T1 et T2 doivent exister, mais sont fermées
// ts : résultat de la comparaison des deux structures de tables
function CopyFDTable(var T1,T2 : TFDTable; var n : integer; ts : shortint = 0; Opt : shortstring = '') : boolean; // Retourne le nombre d'enregistrements copiés
var
  n0 : integer;
begin
n0:=0;  // Nombre d'enregistrements à copier
n:=0;   // Nombre d'enregistrements copiés
Result:=False; // Pas de transfert
try
  case ts of
//  40 : // Même structure de champs, d'index primaire et d'index secondaires
//    try
//      T2.Close;
//      T1.Close;
//      T2.Data:=T1.Data;
//      n:=T2.RecordCount;
//      T2.Close;                       Erreur lors de la copie d'une
//      Result:=True;
//    except
//      Result:=False;
//    end;
  30..31 : // Même structure de champs et d'index primaire mais index secondaires différents
    try
      T1.Open;
      n0:=T1.RecordCount;
      T2.Close;
      if (n0>0) and TruncateFDTable(T2) then
        begin
        T2.CopyDataSet(T1,[coRestart,coAppend]);
        T2.Connection.Commit;
        end;
      n:=n0;
      T1.Close;
      Result:=True;
    except
      Result:=False;
    end;
  24..29 : // Structures de champs et index différents
    begin
    T1.Open;
    n0:=T1.RecordCount;
    with FenLog.Jauge do
      begin
      Max:=n0;
      Position:=0;
      Visible:=True;
      end;
    T2.Open;
    TruncateFDTable(T2);
    T1.First;
    while (not T1.Eof) do
      begin
      FenLog.Jauge.Position:=T1.RecNo;
      if InsertFDRec(T1,T2) then
        n:=n+1;
      T1.Next;
      end;
    T2.Connection.Commit;
    if n=n0 then Result:=True;
    end;
  else
    Result:=False;
  end;
finally
  T1.Close; // Ferme les ensembles de données
  T2.Close;
  FenLog.Jauge.Visible:=False;
end;
end;
 
 
// Suppression des enregistrements d'une table SQLite
// Opt : à titre conservatoire
function TruncateFDTable(var T1 : TFDTable; Opt : shortstring = '') : boolean;
begin
with T1 do
  try
    ExecSQL('DELETE FROM '+TableName+'; VACUUM;');
    Connection.Commit;
    Result:=True;
  except
    Result:=False;
  end;
end;

 
procedure delete_table;
var
i:integer;
begin
 
  form1.FDTable1.BeginBatch;
 for i := form1.FDTable1.RecordCount - 1 downto 0 do
  begin
  form1.FDTable1.Delete;
 end;
  form1.FDTable1.EndBatch;
  form1.FDTable1.Refresh;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
  Var
  Str: String;
  List: TStringList;
  lg,pas:integer;
  datt,boul1,boul2,boul3,boul4,boul5,etoil1,etoil2,gain:string;
 
begin
{delete_table;  }  //erreur
  form1.ListBox1.Clear;
 
  lg:=form1.ListBox2.Items.Count;
 
  for pas:=lg-1 downto 1 do begin
 
  Str:= form1.ListBox2.Items[pas];
  List:= TStringList.Create;
  List.Delimiter:= ';';
  list.StrictDelimiter:=true;
  Try
    List.DelimitedText:= Str ;
 
     datt:= List.Strings[2] ;
 
      boul1:=List.Strings[5];
      boul2:=List.Strings[6];
      boul3:=List.Strings[7];
      boul4:=List.Strings[8];
      boul5:=List.Strings[9];
      etoil1:=List.Strings[10];
      etoil2:=List.Strings[11];
      gain:=List.Strings[19];
 
      form1.ListBox1.Items.Add(datt+' '+boul1+' '+boul2+' '+boul3+' '+boul4+' '+boul5+' '+etoil1+' '+etoil2+' '+gain);
 
      form1.FDTable1.insert;
 
       form1.FDTable1.fieldbyname('date').AsString :=datt;
       form1.FDTable1.fieldbyname('boule1').AsString :=boul1;
       form1.FDTable1.fieldbyname('boule2').AsString :=boul2;
       form1.FDTable1.fieldbyname('boule3').AsString :=boul3;
       form1.FDTable1.fieldbyname('boule4').AsString :=boul4;
       form1.FDTable1.fieldbyname('boule5').AsString :=boul5;
       form1.FDTable1.fieldbyname('etoile1').AsString :=etoil1;
       form1.FDTable1.fieldbyname('etoile2').AsString :=etoil2;
 
       form1.FDTable1.fieldbyname('gain').AsString :=gain;
 
     form1.FDTable1.Post;
  Finally
    FreeAndNil(List);
  End ;
  end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//  fichier resultat de euromillion FDJ renommer 'result.csv '
 form1.ListBox2.Items.LoadFromFile('result.csv')  ;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.DBGrid1.DataSource:=form1.DataSource1;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.DBGrid1.DataSource:=nil;
end;

 
procedure TForm1.Button1Click(Sender: TObject);
var
sql:string;
begin
   FDQuery1.SQL.Clear;
    SQL :='CREATE TABLE  ................................
 
  	FDQuery1.SQL.Add(SQL);
  	FDQuery1.ExecSQL();
    FDQuery1.Close;
end;
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FDConnection1.Params.Clear;
  FDConnection1.Params.Add('DriverName=Sqlite');
  FDConnection1.Params.Add('Database=MaBase.db');
  FDConnection1.Params.Add('FailIfMissing=False'); // création de la BD si celle-ci n'éxiste pas
  FDConnection1.Params.Add('DriverID=SQLite');
  FDConnection1.Params.Add('ForeignKeys=fkOn');
  FDConnection1.LoginPrompt := false;
  FDQuery1.FetchOptions.Mode := fmAll;
end;

zQuery.Open;
sQuery.First;

{$L IDPAS32.OBJ}
{$L DBI.OBJ}
{$L INTFPAS.OBJ}