Hallo Jelly,
ich habe Dein Programm mit diesen Daten
Delphi-Quellcode:
const
GX = 50;
GY = 50;
GZ = 50;
arrayname = 'AnArrayName';
g:record x,y,z: Integer end = (x:GX; y:GY; z:GZ);
var
iz, iy, ix: Integer;
v_line: string;
Thread: record Cells: array[0..GX-1, 0..GY-1, 0..GZ-1] of record c: double; end; end;
FF: Textfile;
in AQTime untersucht und mein Verdacht, dass die Stringverarbeitung der limitiernde Faktor ist, hat sich bestätigt. Hier die Ergebnisse:
Code:
Routine Name | % with Children | with Count
-------------+-----------------+------------
Format | 32,15 | 125050
FloatToStr | 28,51 | 125000
LStrCat | 26,81 | 127500
über 85% der Zeit innerhalb der Schleife wird folglich mit der Zusammensetzung verbracht und nur ein geringer Teil des Rests mit dem Schreiben auf den (lokalen) Datenträger.
Suche im Forum einmal nach Beiträgen von Hagen aka negaH zum Thema String-Konkatenation uä, um einen genaueren Überblick über die Thematik zu erlangen.