Subj : Re: Copy File
To   : Alexander Grotewohl
From : Nick Andre
Date : Sun Sep 04 2022 20:44:07

On 04 Sep 22  17:14:27, Alexander Grotewohl said the following to Nick Andre:

AG>  NA> procedure SAFECOPY (fromFile, toFile : string);
AG> 
AG> this only copies 64 bytes at a time (should be something closer to the
AG> filesystem block size, or if it's unknown the best guess is 4096). i.e: thi
AG> function likely reads the disk 64 times per 4096 bytes instead of 1x

I'm sure the whole thing can be improved, it was an example from a collection
of code dating back to... TP 5.5 I think.

Nick

--- Renegade vY2Ka2
 * Origin: Joey, do you like movies about gladiators? (1:229/426)

.