
19.09.2018, 08:59
|
Прохожий
|
|
Регистрация: 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 - это старая?
|