Показать сообщение отдельно
  #2  
Старый 19.09.2018, 03:38
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну так и читай их как 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;
Ответить с цитированием