Performance TpFIBDataset

[nachti1505]

Ich möchte die Daten eine Tabelle gerne in ein Stringgrid laden. Das StringGrid hat dazu mehrere Spalten (Columns).

Folgender Code:

Delphi-Quellcode:

var
  Dataset: TpFIBDataset;

begin
  Dataset.DisableControls;
  Dataset.First;
  while NOT Dataset.Eof do begin
    for i := 0 to StringGrid.Columns.Count - 1 do begin
      StringGrid.Cells[i, Dataset.RecNo] := Dataset.FindField(StringGrid.Columns[i].DataField);
    end;
    Dataset.Next;
  end;
  Dataset.EnableControls;
end;

Dummerweise benötigt dieses Vorgehen für knapp 1000 Datensätze um die 4sec??? Die Variante mit einem simplen FIBQuery hingegen erledigt das ganze in Bruchteilen davon...

Kommentiert man Zeile 9 (... Dataset.FindField ...) hingegen aus, so beträgt die Laufzeit nur noch Millisekunden. Kann es ein, dass FindField extrem langsam ist? Welche Vorschläge zur Performancesteigerung könnt ihr machen?

Vielen Dank

[Hansa]

Seit wann gibt es ein stringgrid.Columns ?? Allgemein würde ich immer

SQL-Code:

where

benutzen, anstatt das bereits sichtbare zu durchsuchen.

[nachti1505]

Zitat:

Zitat von Hansa

Seit wann gibt es ein stringgrid.Columns ??

Ist von mir erweitert worden, um eine DBGrid Funktionalität nachzubilden... hätte ich vllt erwähnen sollen...

Zitat:

Zitat von Hansa

Allgemein würde ich immer

SQL-Code:

where

benutzen, anstatt das bereits sichtbare zu durchsuchen.

Das bereits sichtbare soll nicht durchsucht werden, sondern das Ergebnis einer SQL-Abfrage (ob mit WHERE (gefiltert) oder ohne WHERE (ungefiltert)) im obigen StringGrid dargestellt werden.

Prinzipiell geht meine Frage dahin, ob sich

Delphi-Quellcode:

StringGrid.Cells[i, Dataset.RecNo] := Dataset.FindField(StringGrid.Columns[i].DataField);

performanter ausdrücken lässt, da es von der Laufzeit her wohl an dieser Stelle zu Engpässen kommt.

[DeddyH]

Ich kenne FIBPlus leider nicht, aber gibt es dort nicht evtl. ein Fields-Array, auf das Du direkt zugreifen könntest?

Delphi-Quellcode:

StringGrid.Cells[i, Dataset.RecNo] := Dataset.Fields[i];

Oder etwas Ähnliches zumindest, da ich mir denken könnte, dass FindField intern mit einer Schleife arbeitet.

[nachti1505]

Die Idee hatte ich auch schon, ändert leider nicht signifikant etwas. Nutze jetzt aus FIBPlus das FieldByFieldNo. Ändert die Ladezeit von 4s auf 3s... Ist mir aber immer noch zu lang.

Eine (testweise) aufgesetzte UIBQuery benötigt dafür irgendwas im Bereich von 60ms.... Komisch!

[Hansa]

Zitat:

Zitat von nachti1505

... hätte ich vllt erwähnen sollen...

vllt ? Die Frage an sich wurde durch Unterschlagung wichtiger Informationen so gut wie unbrauchbar gemacht. :zwinker: Die alleine nützt nichts : :glaskugel:

Lasse doch mal hier das Stringgrid weg :

Delphi-Quellcode:

StringGrid.Cells[i, Dataset.RecNo] := Dataset.FindField(StringGrid.Columns[i].DataField);

Es stellt sich schließlich die Frage, ob das zusammengebastelte Stringgrid schuld ist oder ein falsch zusammengebautes Dataset.

[DeddyH]

Ich hab auch ein wenig das Stringgrid im Verdacht. Evtl. könnte man mit BeginUpdate und EndUpdate noch etwas herausholen, die Frage ist nur, Cols oder Rows.

[nachti1505]

StringGrid scheint es gar nicht zu sein. Habe aus

Delphi-Quellcode:

StringGrid1.Cells[i, Dataset.RecNo] := Dataset.FieldByFieldNo(i).AsString;

mal folgendes gemacht:

Delphi-Quellcode:

Dataset.FieldByFieldNo(i).AsString;

Und die Laufzeiten bleiben identisch.

[Hansa]

Wenn das nicht dem Stringgrid zugewiesen wird, wem dann ? :shock: Mache doch einfach ein showmessage oder ein memo.lines.add.

[nachti1505]

@Hansa...
Durch die eben gezeigte Änderung wird zwar nichts zugewiesen, es ließ sich aber eindeutig klären, ob StringGrid oder Dataset für die Performanzeinbrüche verantwortlich sind. Das das StringGrid nicht mehr in der Anweisung vorkommt und das Dataset nach wie vor das macht, was es machen soll --> Laufzeit hängt vom Dataset ab!