TStringList - Listenindex überschreitet maximum

[Robert_G]

OffTopic:

Zitat:

die ganze datei hat 2398

Dann sind das ...

Delphi-Quellcode:

    ...
    for ndx := 0 to Pred (mastersl.Count) do
    begin
      ...
      IBTransaction1.Commit;
    end;

2398 Transaktionen!!!!!

Wofür soll das denn gut sein?
Ich denke mal ein Kompromiss zwischen übergroßen ReDo-tablespaces und 2398 Transaktionen (!!!`) wäre ein Zähler, der dir alle 400-600 Einträge ein Commit ausführt. (Ich habe null Ahnung von IB, also probiere selbst welcher Wert am schnellsten ist )

Delphi-Quellcode:

    for ndx := 0 to Pred (mastersl.Count) do
    begin
      ...
      If RecsInTransact > 500 then
      begin
        IBTransaction1.Commit;
        RecsInTransact := 0; 
      end;
      inc(RecsInTransact);
    end;