Q&A

  • 기존의 문자열을 바이너리파일로 저장하는 방법을 아십니까?
문자열을 바이너리 파일로 저장을 하려 하는데 잘 안되네요...

아시는 고수님이 계시면 좀 갈켜 주십시오...플리즈..

1  COMMENTS
  • Profile
    최용일 2000.05.10 10:11
    안녕하세요. 최용일입니다.



    다음과 같이 하시면 됩니다. 이 방법 말고도 무수히 많은 방법이 있습니다. 참고하세요.



    그리고 그냥 스트링의 내용만 저장하시면 이진파일이든 텍스트파일이든 똑같습니다.



    var

    F: file;

    S: string;

    P: pointer;

    begin

    S := '1234567890';

    P := Pointer(S);

    P := Pointer(Integer(P) - 4);

    AssignFile(F, 'c:test.dat');

    Rewrite(F, 1);

    BlockWrite(F, TByteArray(P^), Length(S) + 4);

    CloseFile(F);

    end;



    ^^ 항상 즐코하세요.



    송인섭 wrote:

    > 문자열을 바이너리 파일로 저장을 하려 하는데 잘 안되네요...

    > 아시는 고수님이 계시면 좀 갈켜 주십시오...플리즈..