Q&A

  • 파일의 내용 보기
다음에서 buffer의 내용을 보면 파일의 내용을 모두 담고 있는데 memo에 올라오는 내용은

몇자 안됩니다. 왜 그렇지요?

var

F: file;

Size: Integer;

Buffer: PChar;

begin

AssignFile(F, 'd:temptemp.txt');

Reset(F, 1);

// Reset(F);

try

Size := FileSize(F);

GetMem(Buffer, Size);

try

BlockRead(F, Buffer^, Size);

// ProcessFile(Buffer, Size);

Memo1.Lines.Add(buffer);

finally

FreeMem(Buffer);

end;

finally

CloseFile(F);

end;

end;

이 게시물을
1  COMMENTS
  • Profile
    윤진화 • 2000.02.09 04:00
    앙! 제가 테스트해본 결과 모두 다 잘나오는데 뭐가 문제일까요?

    혹? Memo의 MaxLength 프로퍼티에 한계값을 넣었는지요?

    전 아무이상없이 되는군요.



    Memo1.Text := Buffer; 도 잘되고요.
←First Page
2646 2647 2648 2649 2650 2651 2652 2653 2654 2655
Last Page→
한델 로그인 하기