Q&A

  • 여영식님 보십시요--에러
보내주신 소스 잘 보았습니다.

그대로 코딩 해서 실행해보니

데이타 첫번째 자리가 짤려서 나타나지를 않는군요

해결책은 있습니까?

너무 자꾸 물어봐서 죄송합니다.

1  COMMENTS
  • Profile
    여영식 2000.01.12 20:24
    제가 문제를 잘못 이해했었습니다. 이렇게 해보세요.

    var

    DataFile: TFileStream;

    Data: TData;

    i : Integer;

    begin

    DataFile := TFileStream.Create('c:1.txt', fmOpenRead);



    SetLength(Data.Buf[0], 1);

    DataFile.Read(Data.Buf[0, 1], Length(Data.Buf[0]));



    SetLength(Data.Buf[1], 6);

    DataFile.Read(Data.Buf[1, 1], Length(Data.Buf[1]));



    for i := 2 to 48 do

    begin

    SetLength(Data.Buf[i], 12);

    DataFile.Read(Data.Buf[i, 1], Length(Data.Buf[i]));

    end;



    DataFile.Free;

    end;



    초보왕 wrote:

    > 보내주신 소스 잘 보았습니다.

    > 그대로 코딩 해서 실행해보니

    > 데이타 첫번째 자리가 짤려서 나타나지를 않는군요

    > 해결책은 있습니까?

    > 너무 자꾸 물어봐서 죄송합니다.