Цитата:
|
Сообщение от juraman1
так что мне нужно было быстро и эффективно сделать, уверен тут еще найдутся прорехи,
|
Из прорехов вот мне не понятно это место:
Код:
//Подсчет контрольных сумм
if FindFirst(sPath+'\*.*', faAnyFile - faDirectory - faVolumeID, sR) = 0 then
.....
f:=fileopen(sR.Name,fmOpenRead); sA[i]:=sPath+'\'+sR.Name; Т.е. файлы мы ищем в определённом каталоге sPath, но сам файл пытаемся открыть в текущем каталоге.
Скорее всего открывать найденный файл нужно тоже из того же каталога:
Код:
f:=fileopen(sPath+'\'+sR.Name,fmOpenRead);
Или же устанавливать каталог sPath как текущий: SetCurrentDir(sPath);
Цитата:
|
Сообщение от juraman1
но увы и ах как писал великий классик А.П.Чехов
|
А.П.Чехов мой любимый писатель - в детстве я перечитал практически всё что нашёл в библиотеке
Рассказ "
Идиллия — увы и ах!" тоже очень нравится, написан в специфичном чеховском стиле.