Re: Как юзать FindFirst , FindNext для файлов размер которых выходит за integer
Добавлено: 12 мар 2007, 15:43
не помню как сдвигать и не понял как обойтись сомированием )
короче сделал так
temp:=sr.FindData.nFileSizeHigh*256;
temp:=temp*256;
temp:=temp*256;
temp:=temp*256;
sz:=temp+sr.FindData.nFileSizeLow;
и еще делфи почемуто не вычистяет выражение sr.FindData.nFileSizeHigh*256*256*256*256 пишет 0.
короче сделал так
temp:=sr.FindData.nFileSizeHigh*256;
temp:=temp*256;
temp:=temp*256;
temp:=temp*256;
sz:=temp+sr.FindData.nFileSizeLow;
и еще делфи почемуто не вычистяет выражение sr.FindData.nFileSizeHigh*256*256*256*256 пишет 0.