Q&A

  • 텍스트파일을 읽어 카운트한후 카운트값으로 챠트그리기
1

0

1

1

1

0

1

이런식으로 텍스트파일에 데이터가 있습니다..

단지 읽어서 0과 1의 갯수를 카운트해서 이 카운트한 갯수로 챠트를 그리고싶은데여..

어떻게 해줘야할지 모르겟네여..

스트링그리드에 표현해주는것도 아니라서...

어떻게해주면좋져??

이 게시물을
1  COMMENTS
  • Profile
    신성철 • 2000.09.07 01:37
    heimdal wrote:

    > 1

    > 0

    > 1

    > 1

    > 1

    > 0

    > 1

    > 이런식으로 텍스트파일에 데이터가 있습니다..

    > 단지 읽어서 0과 1의 갯수를 카운트해서 이 카운트한 갯수로 챠트를 그리고싶은데여..

    > 어떻게 해줘야할지 모르겟네여..

    > 스트링그리드에 표현해주는것도 아니라서...

    > 어떻게해주면좋져??

    Var

    temp: TStringList;

    I,aa,bb: Integer;

    begin

    aa := 0;

    bb := 0;

    temp := TStringList.Create;

    temp.LoadFromFile('c:temp.txt');

    For I := 0 To temp.Count -1 do Begin

    If Trim(temp.Strings[i]) = '0' Then

    inc(aa);

    If Trim(temp.Strings[i]) = '1' Then

    inc(bb);

    End;

    temp.Free;

    End;
←First Page
2259 2260 2261 2262 2263 2264 2265 2266 2267 2268
Last Page→
한델 로그인 하기