1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.Panel7Click(Sender: TObject);
var
  X: Integer;
  dummyStrings: TStrings;
  str1, str2: string;
begin

  dummyStrings := TStringList.Create;
  dummyStrings.Clear;

  for X := 0 to 1000000 do
  begin
    str1 := Random_String(100);
    str2 := Random_String(100);


// Hier hätte ich gern einfach eine Möglichkeit, dass die Daten schneller geschrieben werden statt über ein Array (StringList)
    dummyStrings.Add('insert into bibo (name,autor) values (''' + str1 + ''', ''' + str1 + ''');');

  end;
  CreateDBsql(ABSTable1, ABSQuery1, dummyStrings);
  dummyStrings.Free;

end;


function CreateDBsql(Table: TABSTable; Query: TABSQuery; SQLstrings: TStrings): Integer;
begin

  Table.Close; //nur für den Fall, dass die noch offen ist, sonst ohne Bedeutung hier
  Query.SQL.Text := SQLstrings.Text;
  Query.ExecSQL;

end;					

1:
2:
3:
4:
5:
6:
7:
8:

DB.BeginTransaction;
for X := 0 to 1000000 do
  begin
    str1 := Random_String(100);
    str2 := Random_String(100);
    DB.ExecSQL('insert into bibo (name,autor) values (''' + str1 + ''', ''' + str1 + ''');');
  end;
DB.Commit;