So, hat lange gedauert, aber nuu....
Hab schon wieder Probleme, wie schon geahnt.
Also....
Ich Hab zur Überprüfung und Visualisierung ein StringGrid genommen.
Mit einer Schleife lese ich x Textdateien ein in denen für 7 Tage (7 Spalten), in ca. 288 Zeilen Abdeckungswerte und in weiteren 288 Zeilen Bedarfswerte stehen, nacheinander ein und addiere die Werte nach Tag, 5-Minuten-Interval und Bedarf oder Abdeckung.
Danach hab ich also meine Ergebnisse von x Dienstplänen in eine StringGrid
Dieses ganze Einlesen der Textdateien und die Berechnung mit reinschreiben ins StringGrid dauert (visible := False) unter einer Sekunde. Das ist Toll.
Aber, wenn ich die Werte dann Zeile für Zeile, Spalte für Spalte in die Datenbank schreibe, das dauert dann ca. 10 Sekunden und das ist mir definitiv zu lang.
Ich mach das so:
Delphi-Quellcode:
IBTable1.First;
For i := 25 to 288 do
begin
IBTable1.Edit;
IBTable1['AGRPMo']:= StrToFloat(StringGrid2.Cells[1, i]);
IBTable1['AGRPDi']:= StrToFloat(StringGrid2.Cells[2, i]);
IBTable1['AGRPMi']:= StrToFloat(StringGrid2.Cells[3, i]);
IBTable1['AGRPDo']:= StrToFloat(StringGrid2.Cells[4, i]);
IBTable1['AGRPFr']:= StrToFloat(StringGrid2.Cells[5, i]);
IBTable1['AGRPSa']:= StrToFloat(StringGrid2.Cells[6, i]);
IBTable1['AGRPSo']:= StrToFloat(StringGrid2.Cells[7, i]);
IBTable1['ZGRPMo']:= StrToFloat(StringGrid2.Cells[8, i]);
IBTable1['ZGRPDi']:= StrToFloat(StringGrid2.Cells[9, i]);
IBTable1['ZGRPMi']:= StrToFloat(StringGrid2.Cells[10, i]);
IBTable1['ZGRPDo']:= StrToFloat(StringGrid2.Cells[11, i]);
IBTable1['ZGRPFr']:= StrToFloat(StringGrid2.Cells[12, i]);
IBTable1['ZGRPSa']:= StrToFloat(StringGrid2.Cells[13, i]);
IBTable1['ZGRPSo']:= StrToFloat(StringGrid2.Cells[14, i]);
IBTable1.Post;
IBTable1.Next;
end;
Wobei ich noch eine zweite Schleife For i := 1 to 25 verwende, weil ich statt von 00:00 bis 23:55, von 02:00 bis 02:00 des Folgetages verwende.
Gibts eine schnellere Methode die Daten in die Datenbank zu bekommen?