21.09.2009, 15:54
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
С нами:
8854881
Репутация:
35
|
|
Есть такой код на С++:
Код:
for (r = 0; r < ClCount; r++, FileSize -= BlockSize)
{
Offset.QuadPart = ClusterSize * Clusters[r];
SetFilePointer(hDrive, Offset.LowPart, &Offset.HighPart, FILE_BEGIN);
ReadFile(hDrive, Buff, ClusterSize, &Bytes, NULL);
BlockSize = FileSize < ClusterSize ? FileSize : ClusterSize;
WriteFile(hFile, Buff, BlockSize, &Bytes, NULL);
}
Как перевести его на Delphi, точнее не сам цикл, а всего лишь вот эту строчку:
Код:
BlockSize = FileSize < ClusterSize ? FileSize : ClusterSize;
подскажите =) |
|
|