hi,
hab hier den code um für mein onlinekochbuch - die Anzahl der rezepte aus der datenbank zu lesen. zu beginn hab ich alles per zeos ausgelesen, nun bin ich soweit das ich die kategorie und die unterkategorie die sich nicht ändern lokal auf festplatte habe und nur noch die Anzahl der rezepte per zeos auslesen. ich habe mir dadurch eigentlich eine geschwindigkeitsverbesserung erhofft - hat aber leider nicht allzuviel gebracht, eigentlich gar nichts.
Delphi-Quellcode:
i,a : integer;
namen : TStringList;
ini : TIniFile;
begin
namen := TStringList.Create;
ini := TIniFile.Create(extractfilepath(paramstr(0))+'unterkategorien.ini');
databasel;
sqlq.Active := False;
sqlq.SQL.Clear;
sqlq.SQL.Add('SELECT name FROM kategorie');
sqlq.Active := True;
sqlq.First;
while not sqlq.Eof do
begin
namen.Add(sqlq.FieldByName('name').AsString);
sqlq.Next;
end;//sqlq.eof
sqlq.Active := False;
namen.SaveToFile(extractfilepath(paramstr(0))+'kategorie.txt');
for i := 0 to namen.Count -1 do
begin
sqlqrez.Active := False;
sqlqrez.SQL.Clear;
sqlqrez.SQL.Add('SELECT Count(name) FROM rezepte WHERE kategorie="'+namen.Strings[i]+'"');
sqlqrez.Active := True;
with tv_rezept.Items do
begin
t := AddChild(nil,namen.Strings[i] + ' ('+sqlqrez.fieldbyname('Count(name)').AsString+')');
end;
for a := 0 to 8 do //ab hier geht denke ich die performance drauf
begin
if not (ini.ReadString(namen.Strings[i],'unter'+IntToStr(a),'') = '') then
begin
sqlqrez.Active := False;
sqlqrez.SQL.Clear;
sqlqrez.SQL.Add('SELECT Count(name) FROM rezepte WHERE unterkat="'+ini.ReadString(namen.Strings[i],'unter'+IntToStr(a),'')+'" AND kategorie="'+namen.Strings[i]+'"');
sqlqrez.Active := True;
tv_rezept.Items.AddChild(t,ini.ReadString(namen.Strings[i],'unter'+IntToStr(a),'')+ ' (' + sqlqrez.fieldbyname('Count(name)').AsString +')' );
sqlqrez.Active := False;
end;//if not ini....
end;//for a
end;//for i
die inifile sieht so aus
Delphi-Quellcode:
[Eier- & Mehlspeisen]
unter0=Crêpes
unter1=Deftiges & Delikates
unter2=Omelettes
unter3=Pfannkuchen
unter4=Sonstiges
[Auflauf & Co.]
unter0=Sonstiges
unter1=Gratins
unter2=Aufläufe
unter3=Soufflès
usw...
hmm ich weis nicht genau was ich noch daran verbessern könnte um die ganze sache zu beschleunigen so das man nicht ca ~20sek warten muss bis die anzahl aller rezepte ausgelesen und die TreeView aufgebaut ist.
hat evtl jemand einen ansatz?
mfg