Biginer wrote:

> '01ff'와 같은 헥사 스트링을 이진 파일에 '01' 한 바이트 'ff' 한 바이트로

>

> 저장할 수 있는 방법을 찾고 있습니다.

>

> 초보자인데 혼자 힘으로는 도저히 어려워 고수님들의 한 수 가르침 부탁드립니다.



음~

방법은 아주 간단합니다.

문자열을 정수로 바꾸면 되지요.

예를 들면,

A := StrToInt ('01'); //A는 바이트로 선언하시고.



저장하는 방법은 BlockWrite를 사용하는 것이 가장 좋더군요.

몇 메가도 1초 정도면 저장하던데...

헬프를 보면 도움이 될 겁니다.

간단하게

var

OutFile : File;

A : Byte;

begin

AssignFile (OutFile, FileName);

ReWrite (OutFile, 1);

BlockWrite (OutFile, A, SizeOf (Byte));

CloseFile (OutFile);

end;



대충 이정도...

조금 응용하면 좋은 결과가 있겠지요.

개인적으로는 읽어 들일때는 FileRead(), 저장할 때는 BlockWrite()를 많이 사용합니다.

이진 파일을 많이 취급하다보니 이렇게 사용하는 것이 편하더군요.

그럼, 즐거운 시간 보내세요.