TFileStream.Write langsam, wenn man nur 1 Zeichen schreibt?

[a.def]

Zitat von EWeiss:

Zitat:

Mein "Kot"

OT:

Macht der irgendwo hin?
Zumindest sehe ich keine Fäkalien.

gruss

Ich dachte ich nenne es "Kot", da es definitiv keiner guter Code ist

Zitat von Daniel:

Zitat von a.def:

Ob das noch schneller ginge?

Bist Du sicher, dass ein String das rechte Werkzeug zur Datenhaltung ist? Du baust den ja Zeichen für Zeichen auf. Das arme Ding wird im Speicher kreuz und quer kopiert. Wenn es unbedingt ein String bleiben soll, dann setze dessen Länge einmalig am Anfang und setze die einzelnen Zeichen dann über deren Index (ala s[1] := 'X'; ).

Ok ein kleiner Test. Mit meinem... Code... da oben: 512MB in ~7,3 Sekunden. Mit einem array of string ~17 Sekunden.
Mit sTmp: string; SetLength(sTmp, XYZ); sTmp[1] := 'X'; bekomme ich leider eine AV.