Einzelnen Beitrag anzeigen

Robert_G
(Gast)

n/a Beiträge
 
#4

Re: TStringList - Listenindex überschreitet maximum

  Alt 18. Jun 2004, 13:58
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;
  Mit Zitat antworten Zitat