델파이 바이트 변환 바이트 배열

귀하의 코드는 해당 바이트를 읽기만 하고 다른 처리는 수행하지 않으므로 읽을 필요가 없습니다. 3바이트가 모두 연속적이므로 다음과 같이 바이트 배열을 사용할 수 있습니다.

var

F: File

Buf: array [0. .2] 바이트;

시작

AssignFile(F, '2.exe');

시도

Reset(F , 1);

Buf[0]:=$74;

Buf[1]:=$31;

Buf[2]:= $5c;

eek(F, 300938); //300938부터 3바이트 쓰기

BlockWrite(F, Buf, SizeOf(Buf))

finally

파일 닫기(F)

끝

끝;