Показать сообщение отдельно
  #3  
Старый 19.09.2018, 08:59
VolodinAS VolodinAS вне форума
Прохожий
 
Регистрация: 16.07.2017
Сообщения: 23
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Ну так и читай их как UInt32.
Если Delphi совсем старая, то используй тип cardinal - это тоже самое.

Код:
var
  Stream := TFileStream;
  D : Cardinal;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead);
  While Stream.Position < Stream.Size Do
    Begin
      Stream.ReadBuffer(D,SizeOf(Cardinal));
      // Здесь делаешь что нужно с очередным числом
   End;
  Stream.Free;
end;

Delphi XE3 - это старая?
Ответить с цитированием