Typisierte Dateien nicht möglich?

[Perlsau]

Zitat von greenmile:

Typisierte Dateien verwende ich immer und nur dann, wenn sich definitiv nix mehr ändert.

Ich verwende typisierte Dateien nur dann, wenn ich Beispielprogramme für Anfänger zusammenstelle.

[greenmile]

Der kam gut ...

Also, die ersten Schritte in SQLite und ein wenig Schock, INSERT ist sehr langsam. Ich füge in einer Schleife 600 Werte ein, das dauert ca. 5-6 Sekunden (Intel i7, Samsung SSD, also alles schnell genug). Mit Transactions geht es bedeutend schneller (IsolationLevel := xilREADCOMMITTED), aber: Ist das korrekt?

[Bernhard Geyer]

Zitat von greenmile:

Der kam gut ...

Also, die ersten Schritte in SQLite und ein wenig Schock, INSERT ist sehr langsam. Ich füge in einer Schleife 600 Werte ein, das dauert ca. 5-6 Sekunden (Intel i7, Samsung SSD, also alles schnell genug). Mit Transactions geht es bedeutend schneller (IsolationLevel := xilREADCOMMITTED), aber: Ist das korrekt?

Könnte schon sein. IN meinen Test war SQLite nicht gerade ein Wunter an Geschwindigkeit.
Verwendest du auch prepared Statements?

[jaenicke]

Zitat von greenmile:

Also, die ersten Schritte in SQLite und ein wenig Schock, INSERT ist sehr langsam. Ich füge in einer Schleife 600 Werte ein, das dauert ca. 5-6 Sekunden (Intel i7, Samsung SSD, also alles schnell genug).

Das kann ich nicht nachvollziehen. Bei mir dauert es ca. 2,5 Sekunden, wenn ich 6000 Werte einfüge:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Field1, Field2: TField;
  a: Cardinal;
begin
  a := GetTickCount;
  TestTable.Active := True;
  for i := 1 to 6000 do
  begin
    TestTable.Append;
    TestTable.FieldByName('FIELD2').AsString := 'Test' + IntToStr(i);
    TestTable.Post;
    ProgressBar1.Position := i;
  end;
  ShowMessage(IntToStr(GetTickCount - a));
end;

Und mit insert geht es mit 1,3 Sekunden sogar noch schneller:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Field1, Field2: TField;
  a: Cardinal;
begin
  a := GetTickCount;
  for i := 1 to 6000 do
  begin
    FDQuery1.Params[0].AsString := 'Test' + IntToStr(i);
    FDQuery1.ExecSQL;
    ProgressBar1.Position := i;
  end;
  ShowMessage(IntToStr(GetTickCount - a));
end;

Wobei die SQL Anweisung so aussieht:

Code:

insert into Test (field2) values (:field2)

Weshalb das ganze bei dir so dermaßen viel langsamer ist, weiß ich nicht, vor allem, weil ich ja noch die Progressbar aktualisiere. Du benutzt ja auch FireDAC, oder?
Der betreffende PC ist etwas älter (Phenom II x4 955, Samsung 840 Evo, ...), daran liegt es also auch nicht.