FMX Android Datenimport

[Devil1925]

Hallo,
vielleicht hat ja einer von euch eine Idee/einen Ansatz wie ich folgenden Datenimport beschleunigen kann:

Hier muss ich Daten aus einer MSSQL-Datenbank auf ein Android Gerät in eine SQLITE Datenbank einspielen.

Delphi-Quellcode:

  Q_SQLITE.Close;
  Q_SQLITE.SQL.Text := 'Select Spalte1, Spalte2, Spalte3 from Tabelle';
  Q_SQLITE.Open;
  Q_MSSQL.Close;
  Q_MSSQL.SQL.Text := 'Select Spalte1, Spalte2, Spalte3 from Tabelle';
  Q_MSSQL.Open;
  Q_MSSQL.First;

  while not Q_MSSQL_Import.Eof do
    begin
      Q_SQLITE_Import.Append;

        for i := 0 to Q_MSSQL_Import.Fields.Count - 1 do
          begin
            Q_SQLITE_Import.FieldByName(Q_MSSQL_Import.Fields[i].FullName).Value := 
                Q_MSSQL_Import.FieldByName(Q_MSSQL_Import.Fields[i].FullName).Value;
          end;
      Q_SQLITE_Import.Post;
      Q_MSSQL_Import.Next;
    end;

Diese Version des Datenimports ist bei kleineren Datenmengen durchaus in Ordnung. Wenn dann allerdings 5000+ Datensätze importiert werden sollen, Dauert es dann doch schon sehr lange.