Speichern ist ziemlich langsam

[choose]

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.