TIBSQL vs isql-fb Shell

[hoika]

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.