Вверх ↑
Ответов: 8885
Рейтинг: 823
#1: 2022-05-10 20:17:38 ЛС | профиль | цитата
sla8a писал(а):
DataToFileEx


.
if _prop_BigEndian then Reverse(@i);
.
procedure THIDataToFileEx.Reverse;
var pb,pe:^byte; b:byte;
begin
pb := p; pe := pb; inc(pe, _prop_DataSize-1);
while dw(pb) < dw(pe) do begin
b := pb^; pb^ := pe^; pe^ := b;
inc(pb); dec(pe);
end;
end;
карма: 19

0