Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
12. Nov 2005
aDateiGr:=aDateiGr + sizeof(aDateiGr)+sizeof(i)+sizeof(aDatName)+aFs.Size;
Du darfst dort nicht mit SizeOf(aDatName) arbeiten, das gibt nämlich ein Byte mehr zurück.
Showmessage(Format('Length(''ABC'') => %d'#13'SizeOf(''ABC'') => %d', ));
Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
12. Nov 2005
Wenn Du folgenden Code vor der For-Schleife einfügst, dauert auch nur 3 Sekunden, weil der Speicher in einem Mal am Stück reserviert wird (evtl. musst Du noch etwas für die Dateinamen hinzufügen, weil ich nicht weiss, was Du in StringStrSpeichn tust):
aDateiGr := 0;
for i:=0 to aObjList.Count-1 do
begin
aFs:=TFileStream.Create(aObjList.Strings, fmOpenRead);
try
...