-1

Есть файл mat.dat объёмом в 1000 байт. Как быстро записать оттуда каждый байт в элемент одномерного массива с 1000-ю элементами типа byte? Дать пример кода, если не сложно.

2 ответа 2

5
  1. В Delphi есть BlockRead.
  2. В WinAPI есть ReadFile для чтения из файла или MapViewOfFile для отображения файла в память.
1

Для работы с файлами типа .dat рекомендуется использовать блочное считывание/запись данных, так как этот метод имеет преимущества в быстродействии перед, например, использованием стандартных файловых потоков класса TFileStream. Вот пример:

...
var 
f:File;
b:BYTE;
i:integer;
...
begin
AssignFile(f,'C:\Data.dat');
Reset(f,1);
for i:=1 to 1000 do
begin
BlockRead(f,b,1);
...
// что-то делаем с каждым считанным байтом
end;

CloseFile(F);

end;
6
  • 2
    @Asen, зачем цикл? Можно же сразу считать 1000 элементов в массив: BlockRead(f,ArrOfBytes,1000);
    – insolor
    30 мая 2012 в 19:07
  • @insolor, абсолютно с вами согласен! Но для наглядности и простоты решил продемонстрировать таким образом...
    – AseN
    30 мая 2012 в 19:09
  • 2
    @Asen, спорно. Чтение большого блока за 1 раз гораздо нагляднее (и быстрее) чтения по 1 байту в цикле. И в измененном варианте программа будет пытаться прочитать по 1000 * 4 * 4 байт, так что первый вариант был правильнее.
    – insolor
    30 мая 2012 в 19:17
  • 1
    @insolor, не спорно, а абсолютно бесспорно, читать надо большими блоками. @Asen, более того, это безусловно наглядней.
    – avp
    30 мая 2012 в 20:51
  • Что-что? Чтение по одному байтику имеет преимущества в быстродействии?
    – karmadro4
    31 мая 2012 в 8:26

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.