1
array of record füllen
Für eine aktuelle Anwendung von mir muss ich ein array of records mit Datensätzen aus einer SQL Datenbank befüllen. Funktionerit soweit ganz gut, ist nur SEHR langsam...
Wie schon erwähnt klappt das ganze eigentlich schon ganz gut. Allerdings geht die Performace ziemlich schnell in die Knie.
Sobald ich versuche ca. 100000 Datensätze einzulesen dauert das ganze, je nach Laune des Computers und laufenden Programmen, zwischen 4 und 8 Minuten!!!
Da das ganze beim Programmstart ausgeführt werden soll ist das untragbar, es sollte maximal 10-20 Sekunden dauern....
Hier einmal ein kleiner Beispielcode (Das Record ist eigentlich wesentlich umfangreicher):
Vielleicht habt ihr ja eine Idee wie man das ganze schneller machen kann.
Gruß, Gushiken
Sobald ich versuche ca. 100000 Datensätze einzulesen dauert das ganze, je nach Laune des Computers und laufenden Programmen, zwischen 4 und 8 Minuten!!!
Da das ganze beim Programmstart ausgeführt werden soll ist das untragbar, es sollte maximal 10-20 Sekunden dauern....
Hier einmal ein kleiner Beispielcode (Das Record ist eigentlich wesentlich umfangreicher):
// Record und Array of Record
TPerson = packed record
nachname:string[50];
end;
TPersonArray = array of TPerson;
// Funktion
with query do
begin
with sql do
begin
clear;
add('<SELECT Anweisung>');
end;
open;
first;
len:=RecordCount;
setLength(personenArray,len);
len:=0;
while len<RecordCount do
begin
with personenArray[len] do
begin
nachname:=Fields.Fields.AsString;
end;
next;
len:= len+1;
end;
end;Vielleicht habt ihr ja eine Idee wie man das ganze schneller machen kann.
Gruß, Gushiken
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 102788
Url: https://administrator.de/contentid/102788
Printed on: April 19, 2024 at 19:04 o'clock
1 Comment
Hallo,
gibt es einen Grund warum die WHILE Schleife nicht mit einem "while not query.eof" gemacht wird ?
Man könnte zumindest len := len + 1 einsparen, und die recordcount Abfrage soll auch nicht die schnellste sein..
Falls parallel dazu noch die Daten in einem Grid o.ä. angezeigt werden, könnte man mit DisableControls vielleicht noch was an Geschwindigkeit rausholen.
vg
gibt es einen Grund warum die WHILE Schleife nicht mit einem "while not query.eof" gemacht wird ?
Man könnte zumindest len := len + 1 einsparen, und die recordcount Abfrage soll auch nicht die schnellste sein..
Falls parallel dazu noch die Daten in einem Grid o.ä. angezeigt werden, könnte man mit DisableControls vielleicht noch was an Geschwindigkeit rausholen.
vg
