Datenzugriff in While not … eof Schleifen unter Delphi beschleunigen

Viele Anwender gehen sicherlich wie folgt vor, wenn man einen Code hat, der durch einzelne Datensätze einer Tabelle oder Query läuft:

while not table.eof do
begin
:= table.fieldbyname(‘ErstesFeld’).AsString;
:= table.fieldbyname(‘ZweitesFeld’).AsString;
table.next;
end;

Wesentlich effizienter im Hinblick auf eine schnellere Ausführung ist dabei aber folgendes Vorgehen:

Var
feld1, feld2 : TField;

begin
feld1 := table.fieldbyname(‘ErstesFeld’);
feld2 := table.fieldbyname(‘ErstesFeld2’);
while not table.eof do
begin
:= feld1.AsString;
:= feld2.AsString;
table.next;
end;

Nachteil ist natürlich: mehr Code, Vorteil ist aber eine schnellere Ausführungsgeschwindigkeit, wobei dies natürlich nur zum Tragen kommt, wenn man sehr viele Daten verarbeiten muss. Bei nur 2-3 Spalten und 10 Datensätzen lohnt es natürlich.

Diese Vorgehensweise führt dazu, dass Fieldbyname nur einmal ausgeführt werden muss und Delphi nicht jedes mal das Feld finden muss, was bei vielen Daten dann eben zeitsparend ist.

Kleiner Tipp: tippt man eof und dann die [Space] Taste so fügt Delphi den Codeblock

while not table.eof do
begin
table.next;
end;

automatisch ein. Gleichzeitig wird der Sync-Bearbeitungsmodus gestartet mit Focus auf das Wort „table“, die erlaubt dann das Ändern dieses Begriffs zum wirklichen Tabellennamen, was natürlich an allen Stellen dann synchron geändert wird.

Werbung

Aktuelle Top Aktionen bei Acer, HP, Lenovo, Bitdefender & Co

Angebote bei Acer
» Großer Acer Herbst Sale:Bis zu 200 Euro Rabatt auf viele Acer Notebooks, Convertibles, Gaming Notebooks und PC, Monitore und mehr bei den Acer Herbst Angeboten bis 02.10.2018


Angebote bei HP
» HP Back To School 2018: Viele HP Notebooks, Convertibles und Drucker im Angebot


Angebote bei Lenovo
» Lenovo Top Wochenangebote: Heiße ThinkPad und IdeaPad Wochenangebote mit großer Auswahl und dicken Rabatten


Weitere Möglichkeiten
» Top bei Otto: Sehr gute HP Notebook Angebote, teils mit Extras wie 4 Jahre Garantie und mehr
» Mehr Aktionen in der Übersicht: Aktuelle HP Angebote und mehr auf einem Blick


Aktuelle Bitdefender Aktionen:
» Top Angebot: Bitdefender "The Darkest Minds Promotion" mit kostenlosem Gewinnspiel und Angebot Total Security 2019 MultiDevice nur 39,99€ statt 79,99 Euro (50% Rabatt)
» Bitdefender Sommer-Aktion Version 2019 mit 15 Euro Rabatt auf Bitdefender Antivirus Plus 2019 (3 Geräte und 1 Jahr), 30 Euro Rabatt auf Bitdefender Internet Security 2019 (3 Geräte und 1 Jahr) und 40 Euro Rabatt auf Bitdefender Total Security Multi Device 2019 (5 Geräte und 1 Jahr)
» Bitdefender +1 Jahr dazu-Aktion
» Top für neue PCs! Bitdefender AntiVirus Plus Lebenslang Edition: 5 Jahre Schutz für nur für nur 89,95
Weitere aktuelle Bitdefender Angebote » Alle Bitdefender Angebote auf einem Blick

Werbung


Verwandte Themen:


Sorry! Unser Kommentarfunktion ist vorübergehend geschlossen.