AW: Typisierte Dateien nicht möglich?
Zitat:
Delphi-Quellcode:
Und mit insert geht es mit 1,3 Sekunden sogar noch schneller:
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;
Delphi-Quellcode:
Wobei die SQL Anweisung so aussieht:
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;
Code:
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?
insert into Test (field2) values (:field2)
Der betreffende PC ist etwas älter (Phenom II x4 955, Samsung 840 Evo, ...), daran liegt es also auch nicht. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:33 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz