Einträge aus Datenbankfeld in Combobox

[himitsu]

DisableControls hat doch nichts mit irgendwelchen Prüfungen zu tun?
Es hängt die GUI ab, damit diese nicht "sinnlos", beim Scrollen durch das DataSet, alles in die Edits lädt, was eh niemand sehen will.

Bei dupIgnore muß man Sorted=True machen, da die StringList sonst den Inhalt nicht schnell prüfen kann.
Auf die Semantik einer Datenbank bezogen macht mit Sorted=True das IndexOf einen IndexScan und mit False ein FullTableScan,
denn in einer sortierten Liste lässt sich schneller suchen.

Zitat:

Bei der Verwendung von Deinem Code ergibt sich eine Fehlermeldung

Welche Delphi-Version hast du?
Tipp: Das kann man hier im Profil angeben. (und in einigen Unterforen auch nochmal, falls die Frage mal abweichend vom Profil ist)

TStrings.AddStrings
Mist, dachte das war als array of string und nicht als TArray<string> deklariert.
Dann geht es leider nur mit dynamischen Arrays.

[NoGAD]

Zitat von himitsu:

DisableControls hat doch nichts mit irgendwelchen Prüfungen zu tun?

Bei dupIgnore muß man Sorted=True machen, da die StringList sonst den Inhalt nicht schnell prüfen kann.

Welche Delphi-Version hast du?
Tipp: Das kann man hier im Profil angeben. (und in einigen Unterforen auch nochmal, falls die Frage mal abweichend vom Profil ist)

TStrings.AddStrings
Mist, dachte das war als array of string und nicht als TArray<string> deklariert.
Dann geht es leider nur mit dynamischen Arrays.

1. Also war es doch korrekt, sortet und dupignore vor der Zuweisung zu setzen?

2. Delphi 10.3 CE

3. array of string ist was anderes als TArray<string> ?

Die Schleife des Array wird schnell eingelesen.

Die Datenbankoperation dauert sehr lange. Da hätte ich mir gewünscht, eine schnellere Variante nutzen zu können.

LG Mathias

[himitsu]

Als "Typ" ist es das Gleiche (nur eine andere Notation),

aber als "Paramater" ist Ersteres ein "Open Array" und kein "Dynamic Array".

Also "Open Array" kann es praktisch jede Art von Array-Typ annehmen, sie die Format-Funktion, wo man auch direkt [irgendwas, anderes, hier] reingeben kann.
Und "Static Array" sind Jene, welche mit fester Größe definiert wurden.


Außerdem können en oder zwei Ressourcen-Schutzblöcke nie schaden. (try finally)

* TForm3 ist ein "blöder" Name.
* Wie bereits jemand sagte ist "Form_Bibo2.ABSTable1" die falsche Tabelle oder die falsche Variable (denn es gibt ja Table_toInit als Parameter).
* Zwischendrin ein paar alternative Schreibweisen. (siehe Kommentare)
* Ich weiß, es fehlen paar Leerzeichen. (Tipp: siehe [Zitat] unten rechts )

Delphi-Quellcode:

// ich weiß nicht seit wann, aber Array-Konstanten kann man nun auch ohne Längenangabe deklarieren
// und damit geht dann auch AddStrings.
const
  //Const_Autors: array[0..2] of string = ['a', 'b', 'c'];
  Const_Autors: TArray<string> = ['a', 'b', 'c'];
  Const_Publishers: array of array of string = [['d', 'g'], ['e', 'h'], ['f', 'i']];

procedure TForm3.InitComboBox(Table_toInit: TABSTable);
var
  TFAutor, TFPublisher, TFRegal, TFFach: TField;
  SLAutor, SLPublisher, SLRegal, SLFach: TStringList;
  i: Integer;
  S: string;
begin
  TFAutor     := Table_toInit.FieldByName(Table_Bibo2.Labels_DB[1]);  // nicht in jedem Schleifendurchlauf erneut das Field suchen
  TFPublisher := Table_toInit.FieldByName(Table_Bibo2.Labels_DB[5]);
  TFRegal     := Table_toInit.FieldByName(Table_Bibo2.Labels_DB[10]);
  TFFach      := Table_toInit.FieldByName(Table_Bibo2.Labels_DB[11]);

  SLAutor     := TStringList.Create(dupIgnore, True, False);
  SLPublisher := TStringList.Create(dupIgnore, True, False);
  SLRegal     := TStringList.Create(dupIgnore, True, False);
  SLFach      := TStringList.Create(dupIgnore, True, False);
  Table_toInit.DisableControls;  // GUI vorübergehend abhängen/deaktiveren, damit die nicht "sinnlos" bei jedem First/Next mitarbeitet.
  try
    {
    for S in Const_Autors do  // Einzeln übergeben, oder wie Nachfolgend als Eins
      SLAutor.Add(S);
    }
    SLAutor.AddStrings(Const_Autors);

    {
    // seit Delphi 2009?
    var Pub: array of string;  // der Unter-Typ von Const_Publishers[i] -> oben, VOR begin definiert
    for Pub in Const_Publishers do
      SLPublisher.Add(Pub[1]);

    // seit Delphi 10.4 nutzbar (war angelbich schon heimlich in 10.3 drin)
    for var Pub in Const_Publishers do
      SLPublisher.Add(Pub[1]);
    }
    for i := low(Const_Publishers) to high(Const_Publishers) do
      SLPublisher.Add(Const_Publishers[i][1]);

    {
    // DisableControls erst an der Schleife und nicht ins übergeordnete Try-Finally integriert
    Table_toInit.DisableControls;
    try
      Table_toInit.First;
      while not Table_toInit.Eof do begin
        ...
        Table_toInit.Next;
      end;
      Table_toInit.First;
    finally
      Table_toInit.EnableControls;
    end;
    }
    Table_toInit.First;
    while not Table_toInit.Eof do begin
      S := TFAutor.AsString.Trim;
      if S <> '' then
        SLAutor.Add(S);

      S := TFPublisher.AsString.Trim;
      if S <> '' then
        SLPublisher.Add(S);

      S := TFRegal.AsString.Trim;
      if S <> '' then
        SLRegal.Add(S);

      S := TFFach.AsString.Trim;
      if S <> '' then
        SLFach.Add(S);

      Table_toInit.Next;
    end;
    Table_toInit.First;
    {
    // Wozu überhaupt das Trim?
    // "falsche" Daten sind einfach "ungültig" ... gehört in den Daten behoben und nicht in der Anzeige
    Table_toInit.First;
    while not Table_toInit.Eof do begin
      if not TFAutor.IsEmpty     then SLAutor.Add    (TFAutor.AsString);
      if not TFPublisher.IsEmpty then SLPublisher.Add(TFPublisher.AsString);
      if not TFRegal.IsEmpty     then SLRegal.Add    (TFRegal.AsString);
      if not TFFach.IsEmpty      then SLFach.Add     (TFFach.AsString);
      Table_toInit.Next;
    end;
    Table_toInit.First;

    // Man könnte auch einfach "Alles" hinzufügen (ohne if-not-empty) und anschließend das '' wieder entfernen.
    //if SLAutor.Find('', i) then SLAutor.Delete(i);
    // und vorher in der Schleife bloß die SLAutor.Add(TFAutor.AsString); oder SLAutor.Add(TFAutor.AsString.Trim);
    }

    ComboBox_AddBook_Author.Items.Assign(SLAutor);
    ComboBox_AddBook_Publisher.Items.Assign(SLPublisher);
    ComboBox_AddBook_Regal.Items.Assign(SLRegal);
    ComboBox_AddBook_Fach.Items.Assign(SLFach);
  finally
    SLAutor.Free;
    SLPublisher.Free;
    SLRegal.Free;
    SLFach.Free;
    Table_toInit.EnableControls;
  end;
end;

[hoika]

Hallo,
weißt Du denn, wo genau das Performance-Problem ist?
Was sagt denn der Debugger?

[NoGAD]

Zitat von hoika:

Hallo,
weißt Du denn, wo genau das Performance-Problem ist?
Was sagt denn der Debugger?

Wo das Problem genau ist, weiß ich leider noch nicht.

In der *dpr habe ich mittels GetTickCount jede Form-Erstellung gemessen. Komisch war hier immer, dass die Zeiten sehr gering waren.

Ich hänge heute Abend das Project mal an.

[hoika]

Hallo,
ohne die DB wird das aber nichts.

Schon mal durchdebuggt?
Klammere einfach mal alles aus und dann schrittweise wieder rein.

[NoGAD]

Dauert noch etwas, ich bin noch auf der Suche

Danke erstmal.

LG

[himitsu]

AQTime / AQTime und auch im GetIt zu finden
https://www.youtube.com/watch?v=OZzY_2JqdGY
https://www.youtube.com/watch?v=ZTBM8cIucEE
https://www.youtube.com/watch?v=WKQh-fiXpKI



Aber beachte, dass Messen das Gemessene auch etwas beeinflussen kann.
Ich hatte mal eine "winzige" oft durchlaufene Schleife, die in Real fast keine Zeit brauchte, aber beim Messen angeblich der Hauptverursacher war. (ein bissl nachdenken sollte man also dennoch)

[NoGAD]

Ich habe mal ein Testprogramm erstellt.

Falls jemand von euch ABSDatabase einsetzt oder die Demo ausprobieren möchte, kann mir eventuell weiterhelfen.

In der Unit

Code:

Unit_ABS_Functions_01.pas

gibt es die Function

Code:

function Restructure_Table_Query(_Database_Construct: TABS_Construct; _Table_Construct: TTable_Construct): TABS_Function_Result;

Diese wird intern durch eine andere Function aufgerufen.

Bei einer größeren Datenbank (2000 +) dauert es unglaublich lange, bis die Tabelle restrukturiert wird.

Vielleicht fällt euch dazu noch was ein

Nachtrag:

In der Unit

Code:

Unit_initialization_01

kann die Zeitmessung aktiviert werden:

Code:

_DebugTimeKeeper := true;

LG Mathias