В первых файлах эта графа была пустая, да и ладно. Опять невнимательность детектед, поле объявлено как Cells[3,0], а заполняется Cells[4,i], значение в пустоту вылетает, чтоб заработало, поменяйте и добавьте в последний блок копирования из строки действие s4:=Copy(s,1,Length(s)) после удаления из неё уже считанного куска - конвертер сработает
|