Insert-Schleife viel zu langsam

[Partikelecho]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

      DatabaseName := DB_Container.DatabaseName;
      TableName := invaname;
      Open;
      ...
      Close;

Diese Teile ändern sich nicht.
Wieso also nicht einfach nur einmal for/nach der For-Schleife?

Aber hat dieser Teil dann nicht nur die Werte des letzten Schleifendurchlaufs? Es werden doch immer jeweils die Variablen neu erstellt und für jede Datei neu hinzugefügt.

Zitat von himitsu:

Statt der vielen FileTime- und FileSize-Funktionen könnte man es mal mit einem FindFirstFile versuchen. (das ganze Geraffel vom FindFirst kann man sich hier sparen)


PS: SL ist eine sehr gut benamte externe Variable.

Damit werde ich mich noch auseinandersetzen, ich hatte ohnehin vor, diese Funktionen noch anzupassen/ zu verbessern.

Naja gut, SL wird in dem Programm immer mal wieder verwendet, es hat einen allgemeinen Zweck und wird nicht stetig gebraucht. Deswegen ist der Bezeichner SL so geblieben.

[himitsu]

AppendRecord macht

Delphi-Quellcode:

Append;
// Felder setzen
Post;

und das geht doch wohl auch mehrmals hintereinande, ohne jedesmal die Tabelle neu auf+zu zumachen?

Eventuell auch noch ein DisableControls/EnableControls drumrum.

Zitat:

Naja gut, SL wird in dem Programm immer mal wieder verwendet, es hat einen allgemeinen Zweck und wird nicht stetig gebraucht. Deswegen ist der Bezeichner SL so geblieben.

Also eine unbestimmte globale Variable, bei der man nie genau weiß, was sich nun gerade dort drin befindet?

[Sir Rufo]

Zitat von himitsu:

Zitat:

Naja gut, SL wird in dem Programm immer mal wieder verwendet, es hat einen allgemeinen Zweck und wird nicht stetig gebraucht. Deswegen ist der Bezeichner SL so geblieben.

Also eine unbestimmte globale Variable, bei der man nie genau weiß, was sich nun gerade dort drin befindet?

Hierbei handelt es sich um das StringLuder. Da darf jeder mal ran und was reinstecken und man weiß eigentlich nie, was man so richtig bekommt, aber meistens geht hoffentlich alles gut.

[DeddyH]

[OT] Ich dachte, das hieße Santa Laus [/OT]

[himitsu]

Santa Laus ... ein Sack voller Überraschungen

[Partikelecho]

Na ihr habt ja den sprichwörtlichen Clown verschluckt

Ich habe die Prozedur noch ein bisschen beschleunigen können, nach dem himitsu meinen Knoten im Schlauch entfernt hat.

Zum Thema StringLuder, die StringList wird immer ordnungsgemäß nach ihrem Gebrauch frei gegeben und sie wird nicht gleichzeitig an mehreren Stellen verwendet. Ich habe 3 unterschiedliche Einleseprozesse, welche aber noch ineinander integriert werden sollen. Die StringList hat dann nur noch eine Aufgabe und dann kann ich sie bequem gemäß ihrem Zweck benennen.

Delphi-Quellcode:

procedure TFRM_Main.ReadInInvA;
var
  i, invasize:Integer;
  invaaccessed, invacreated, invamodified:String;
  created, accessed, modified:TDateTime;
begin
  DB_Container.Close;
  DB_Container.Directory := CXBE_InvDir.Text;
  DB_Container.Open;
  TBL_Container.DatabaseName := DB_Container.DatabaseName;
  TBL_Container.TableName := invaname;
  DB_Container.StartTransaction;
  TBL_Container.Open;
  TBL_Container.DisableControls;
  for i := 0 to SL.Count-1 do
  begin
    if GetFileTimes(CXBE_DbDir.Text+'\'+SL[i], created, accessed, modified) then
    begin
      invaaccessed := DateTimeToStr(accessed);
      invacreated := DateTimeToStr(created);
      invamodified := DateTimeToStr(modified);
    end;
    invasize := GetFileSize(CXBE_DbDir.Text+'\'+SL[i]);
    TBL_Container.AppendRecord([null, SL[i], invacreated, invamodified, invaaccessed, invasize]);
  end;
  TBL_Container.EnableControls;
  TBL_Container.Close;
  DB_Container.Commit;
  DB_Container.Close;
end;

Als nächstes sollte ich mir wohl mal über eine einfachere Lösung zum Thema GetFileSize und GetFileTimes machen,
allerdings muss ich mich dazu noch einmal genau belesen.. Sinnvoll wäre es doch eventuell diese Informationen über eine Funktion auszulesen, oder?

Außerdem könnte ich bei AppendRecord genausogut DateTimeToStr(created) usw eintragen, anstatt erst Variablen zu befüllen.

[p80286]

Was passiert eigentlich wenn GetFileTimes fehlschlägt?

Gruß
K-H