Q&A

  • 레코드 카운트
텍스트파일을 불러들여 디비로 저장한다음 디비그리드에 뿌렸습니다...

제가 하고 싶은 것은 레코드개수를 카운트하고 싶은데...

만약 1부터 100까지의 텍스트 파일을 디비로 불러들이는데

label1.caption := inttostr(table1.recordcount);

하면 전체카운트는 되는데....

label의 caption이 1, 2, 3, .... , 100 이렇게 텍스트파일의 한 레코드를

읽어 들일때마다 증가형태로 보여주려고 합니다...

텍스트파일의 행이 많을경우 불러들이는게 시간이 오래 걸리는데...

label의 caption을 보면서 지금 얼만큼 불러들였는지 볼려고 합니다...

어찌하나요?

많은 답변 부탁드립니다...



4  COMMENTS
  • Profile
    사발우성 2001.07.18 23:52
    간단하게 생각 하면 되는거 아닌가엽 ^^;;

    while not eof do

    begin

    label1.caption := inttostr(i);

    i := i + 1;

    next;

    end;







  • Profile
    chobo 2001.07.19 00:41
    사발우성 wrote:

    > 간단하게 생각 하면 되는거 아닌가엽 ^^;;

    > while not eof do

    > begin

    > label1.caption := inttostr(i);

    > i := i + 1;

    > next;

    > end;

    =========================================================================

    답변 감사합니다...

    근데요...

    위와 같이 하면 label1.caption에는 text파일을 db로 불러들인 후에 최종

    레코드 개수만을 표시해 주는군요...

    제가 하고자 하는건 label1.caption에 1,2,3,....,100처럼 증가치를 보여 주려 합니다.

    얼마만큼의 text파일을 db로 불러들였는지 보기위해서죠....

    마치 progressbar처럼...

    근데 progressbar는 디비로 저장된다음 다시한번 읽어 들이기 때문에 두번의 작업이

    되어서 시간이 배가됩니다...

    해결책이 어찌되는 건가요?

    다시 한번 답변 부탁드립니다...

  • Profile
    사발우성 2001.07.19 01:55
    chobo wrote:

    > 사발우성 wrote:

    > > 간단하게 생각 하면 되는거 아닌가엽 ^^;;

    > > while not eof do

    > > begin

    > > label1.caption := inttostr(i);

    > > i := i + 1;

    Label1.Refresh;// 다시 그리는 부분 ^^;;

    > > next;

    > > end;



  • Profile
    얼음사탕 2001.07.19 01:41
    > > while not eof do

    > > begin

    > > label1.caption := inttostr(i);

    > > i := i + 1;

    Application.ProcessMessages; //Application.ProcessMessages를 추가하시면 수치변화가 눈으로 확인가능해요.

    > > next;

    > > end;

    > 제가 하고자 하는건 label1.caption에 1,2,3,....,100처럼 증가치를 보여 주려 합니다.