Hallo,
sehr gut.
Zitat:
output
das ist ja jetzt hoffentlich eine Stringlist und kein Memo?
5 Sachen sehe ich.
Zitat:
q.UniDirectional:=FALSE;
True setzen, du willst in der
Query doch nicht per Prior zurücklaufen.
Zitat:
pb1.Position:=i+1;
Wieder ein Oberflächenelement, was sich 10.000 neu zeichnet
mache lieber sowas wie
Delphi-Quellcode:
if (i div 100)=0 then
begin
pb1.Position:=i+1;
end;
also nur jeden 100. Eintrag zeichnen.
Wenn Max auf 10.000 steht, fällt ein Pos+1 nicht auf.
Zitat:
q.open;
Das habe und den ganzen Block mit dem q.eof habe ich überhaupt nicht verstanden.
Ein Insert wird über q.ExecSQL ausgeführt.
Zitat:
GetTickCount
Du ermittelst die Laufzeit jedes einzelnen Inserts.
Also 20.000 GetTickCounts.